Repatch (from linux) of OSX IRAF

1 files changed, 40 insertions, 0 deletions

diff --git a/sys/gio/nsppkern/nspp.com b/sys/gio/nsppkern/nspp.com
new file mode 100644
index 00000000..e3cac846
--- /dev/null
+++ b/sys/gio/nsppkern/nspp.com
@@ -0,0 +1,40 @@
+# NSPP.COM -- The nspp system plot package common block.
+
+int	mmajx  ,mmajy  ,mminx  ,mminy  ,mxlab  ,mylab
+int	mflg   ,mtype  ,mxa    ,mya    ,mxb    ,myb
+int	mx     ,my     ,mtypex ,mtypey 
+real	xxa    ,yya    , xxb    ,yyb    ,xxc    ,yyc
+real	xxd    ,yyd    , xfactr ,yfactr ,xadd   ,yadd
+real	xx     ,yy
+
+# XX declared integer some places in nspp code !!!
+# on a VAX this works, but what if float not same size as int ???
+
+int	mfmtx[3]       ,mfmty[3]       ,mumx   ,mumy
+int	msizx  ,msizy  ,mxdec  ,mydec  ,mxor   ,mop[19]
+int	mname[19]      ,mxold  ,myold  ,mxmax  ,mymax
+int	mxfac  ,myfac  ,modef  ,mf2er  ,mshftx ,mshfty
+int	mmgrx  ,mmgry  ,mmnrx  ,mmnry  ,mfrend ,mfrlst
+int	mcrout ,mpair1 ,mpair2 ,msblen ,mflcnt ,mjxmin
+int	mjymin ,mjxmax ,mjymax ,mnxsto ,mnysto ,mxxsto
+int	mxysto ,mprint ,msybuf[360]    ,mncpw  ,minst
+int	mbufa  ,mbuflu ,mfwa[12]       ,mlwa[12]
+int	mipair ,mbprs[16]      ,mbufl  ,munit  ,mbswap
+
+real	small
+
+common /sysplt/ mmajx  ,mmajy  ,mminx  ,mminy  ,mxlab  ,mylab,
+	mflg   ,mtype  ,mxa    ,mya    ,mxb    ,myb,
+	mx     ,my     ,mtypex ,mtypey ,xxa    ,yya,
+	xxb    ,yyb    ,xxc    ,yyc    ,xxd    ,yyd,
+	xfactr ,yfactr ,xadd   ,yadd   ,xx     ,yy,
+	mfmtx  ,mfmty  ,mumx   ,mumy,
+	msizx  ,msizy  ,mxdec  ,mydec  ,mxor   ,mop,
+	mname  ,mxold  ,myold  ,mxmax  ,mymax,
+	mxfac  ,myfac  ,modef  ,mf2er  ,mshftx ,mshfty,
+	mmgrx  ,mmgry  ,mmnrx  ,mmnry  ,mfrend ,mfrlst,
+	mcrout ,mpair1 ,mpair2 ,msblen ,mflcnt ,mjxmin,
+	mjymin ,mjxmax ,mjymax ,mnxsto ,mnysto ,mxxsto,
+	mxysto ,mprint ,msybuf ,mncpw  ,minst,
+	mbufa  ,mbuflu ,mfwa   ,mlwa,
+	mipair ,mbprs  ,mbufl  ,munit  ,mbswap ,small