Module jetdef includes variables associated with the jetting option. (Autodyn-2D only)
MODULE jetdef USE kindef IMPLICIT NONE SAVE INTEGER, PARAMETER :: LIMJET = 100 INTEGER, PARAMETER :: MAXJVR = 21 INTEGER (INT4) :: NUMJET, NXTJET, JETSUB, JETRAP INTEGER (INT4), DIMENSION(LIMJET), TARGET :: NPJET, JPJET REAL (REAL8) :: VSLBAR, PMSLUG, XMOMSL REAL (REAL8), DIMENSION(LIMJET), TARGET :: TIMJET, PMJET, XZJET REAL (REAL8), DIMENSION(LIMJET), TARGET :: YZJET REAL (REAL8), DIMENSION(LIMJET), TARGET :: XJET, YJET, UXJET, UYJET REAL (REAL8), DIMENSION(LIMJET), TARGET :: DXJET, DYJET, VLJET REAL (REAL8), DIMENSION(LIMJET), TARGET :: THKJET END MODULE jetdef
LIMJET | Limit on number of jetting points |
NUMJET | Number of jetting points |
NXTJET | Next point to jet |
JETSUB | Part containing jetting points |
JETRAP | Wrapup indicator |
NPJET | Array of jetted points |
JPJET | Jetting point index |
VSLBAR | Mean slug velocity |
PMSLUG | Total slug mass |
XMOMSL | Total slug momentum |
TIMJET | Time of jetting |
PMJET | Jet mass |
XZJET | Initial X-coordinate |
YZJET | Initial Y-coordinate |
XJET | X coordinate at jet formation |
YJET | Y coordinate at jet formation |
UXJET | X component of collapse velocity |
UYJET | Y component of collapse velocity |
DXJET | DX of segment at jet formation |
DYJET | DY of segment at jet formation |
VLJET | Initial volume |
THKJET | Initial thickness |