aboutsummaryrefslogtreecommitdiff
path: root/src/PXPLOT.INC
diff options
context:
space:
mode:
Diffstat (limited to 'src/PXPLOT.INC')
-rw-r--r--src/PXPLOT.INC33
1 files changed, 33 insertions, 0 deletions
diff --git a/src/PXPLOT.INC b/src/PXPLOT.INC
new file mode 100644
index 0000000..82a2b05
--- /dev/null
+++ b/src/PXPLOT.INC
@@ -0,0 +1,33 @@
+C
+ PARAMETER (NAX = 80, NX=132, NXB=250, NFX=500)
+ IMPLICIT REAL(M)
+ CHARACTER*8 CODE
+ CHARACTER*32 NAME
+ LOGICAL LREF, LFORCE, LMACH, LISES, LCLFIX, LALFIX, LPLOT
+ INTEGER MATYP,RETYP
+C
+ COMMON/COMI/
+ & IDEV, IDEVRP, IPSLU, N, NAPLT, NA, MATYP, RETYP,
+ & LREF, LFORCE, LMACH, LISES, LCLFIX, LALFIX, LPLOT,
+ & IAPLT(NAX), NF,
+ & II(2,NAX), IIB,
+ & ILE(2,NAX),ITE(2,NAX),
+ & ITRAN(2,NAX),
+ & CODE,
+ & NAME
+
+C
+ COMMON/COMR/
+ & SIZE, SCRNFR,
+ & CLMIN, CLMAX, CDMIN, CDMAX, CMMIN, CMMAX,
+ & MACH, REYN, ACRIT, GAM,GM1,CPSTAR(NAX),
+ & MA(NAX),ALFA(NAX),CL(NAX),CD(NAX),CDI(NAX),CM(NAX),
+ & APLT(NAX),
+ & XTR(2,NAX),
+ & XF(NFX),MF(NFX),
+ & XB(NXB), YB(NXB),
+ & X(NX,2,NAX),CP(NX,2,NAX),
+ & THET(NX,2,NAX),DSTR(NX,2,NAX),CF(NX,2,NAX),CTAU(NX,2,NAX),
+ & VERSION
+
+C