Repatch (from linux) of OSX IRAF

1 files changed, 350 insertions, 0 deletions

diff --git a/sys/gio/ncarutil/conlib/conout.f b/sys/gio/ncarutil/conlib/conout.f
new file mode 100644
index 00000000..c2684de9
--- /dev/null
+++ b/sys/gio/ncarutil/conlib/conout.f
@@ -0,0 +1,350 @@
+      SUBROUTINE CONOUT (IVER)
+C                                                                               
+C +-----------------------------------------------------------------+           
+C |                                                                 |           
+C |                Copyright (C) 1986 by UCAR                       |           
+C |        University Corporation for Atmospheric Research          |           
+C |                    All Rights Reserved                          |           
+C |                                                                 |           
+C |                 NCARGRAPHICS  Version 1.00                      |           
+C |                                                                 |           
+C +-----------------------------------------------------------------+           
+C                                                                               
+C                                                                               
+C
+C + NOAO - This routine is a no-op in IRAF.
+C - NOAO
+C
+C  LIST OUT ALL THE CONRAN OPTION VALUES ON THE LINE PRINTER
+C
+C  THE VALUE OF IVER DETERMINES WHICH ENTRY POINT CALLED THIS ROUTINE
+C
+C 1. CONRAQ
+C 2. CONRAN
+C 3. CONRAS
+C
+C
+C
+      COMMON /CONRA1/ CL(30)     ,NCL        ,OLDZ       ,PV(210)    ,
+     1                FINC       ,HI         ,FLO
+      COMMON /CONRA2/ REPEAT     ,EXTRAP     ,PER        ,MESS       ,
+     1                ISCALE     ,LOOK       ,PLDVLS     ,GRD        ,
+     2                CINC       ,CHILO      ,CON        ,LABON      ,
+     3                PMIMX      ,SCALE      ,FRADV      ,EXTRI      ,
+     4                BPSIZ      ,LISTOP
+      COMMON /CONRA3/ IREC
+      COMMON /CONRA4/ NCP        ,NCPSZ
+      COMMON /CONRA5/ NIT        ,ITIPV
+      COMMON /CONRA6/ XST        ,YST        ,XED        ,YED        ,
+     1                STPSZ      ,IGRAD      ,IG         ,XRG        ,
+     2                YRG        ,BORD       ,PXST       ,PYST       ,
+     3                PXED       ,PYED       ,ITICK
+      COMMON /CONRA7/ TITLE      ,ICNT   ,ITLSIZ
+      COMMON /CONRA8/ IHIGH      ,INMAJ      ,INLAB      ,INDAT      ,
+     1              LEN      ,IFMT       ,LEND       ,
+     2                IFMTD      ,ISIZEP     ,INMIN
+      COMMON /CONRA9/ ICOORD(500),NP         ,MXXY       ,TR         ,
+     1                BR         ,TL         ,BL         ,CONV       ,
+     2                XN         ,YN         ,ITLL       ,IBLL       ,
+     3                ITRL       ,IBRL       ,XC         ,YC         ,
+     4                ITLOC(210) ,JX         ,JY         ,ILOC       ,
+     5                ISHFCT     ,XO         ,YO         ,IOC        ,NC
+      COMMON /CONR10/ NT         ,NL         ,NTNL       ,JWIPT      ,
+     1                JWIWL      ,JWIWP      ,JWIPL      ,IPR        ,
+     2                ITPV
+      COMMON /CONR11/ NREP       ,NCRT       ,ISIZEL     ,
+     1                MINGAP     ,ISIZEM         ,
+     2                TENS
+      COMMON /CONR12/ IXMAX      ,IYMAX      ,XMAX       ,YMAX
+      LOGICAL         REPEAT     ,EXTRAP     ,PER        ,MESS       ,
+     1                LOOK       ,PLDVLS     ,GRD        ,LABON      ,
+     2                PMIMX      ,FRADV      ,EXTRI      ,CINC       ,
+     3                TITLE      ,LISTOP     ,CHILO      ,CON
+      COMMON /CONR13/XVS(50),YVS(50),ICOUNT,SPVAL,SHIELD,
+     1               SLDPLT
+      LOGICAL SHIELD,SLDPLT
+      COMMON /CONR14/LINEAR
+      LOGICAL LINEAR
+      COMMON /CONR15/ ISTRNG
+        CHARACTER*64 ISTRNG
+        COMMON /CONR16/ FORM
+        CHARACTER*10 FORM
+        COMMON /CONR17/ NDASH, IDASH, EDASH
+        CHARACTER*10 NDASH, IDASH, EDASH
+C
+      SAVE
+C
+C  GET THE STANDARD OUTPUT UNIT TO WRITE THE OPTION VALUE LIST
+C
+      IUNIT = I1MACH(2)
+C
+C  PRINT OUT HEADER AND ALL OPTIONS WHICH APPLY TO CALLING VERSION
+C
+C     GO TO ( 100, 110, 120),IVER
+C 100 WRITE (IUNIT,1001)
+C     GO TO  130
+C 110 WRITE (IUNIT,1002)
+C     GO TO  130
+C 120 WRITE (IUNIT,1003)
+C 130 WRITE (IUNIT,1004)
+C
+C  PERIMETER
+C
+C     WRITE (IUNIT,1005)
+C     IF (PER) GO TO  140
+C     WRITE (IUNIT,1006)
+C     GO TO  150
+C 140 WRITE (IUNIT,1007)
+C
+C  GRID
+C
+C 150 WRITE (IUNIT,1008)
+C     IF (GRD) GO TO  160
+C     WRITE (IUNIT,1009)
+C     GO TO  170
+C 160 WRITE (IUNIT,1010)
+C
+C  SCALING OF DATA ON FRAME
+C
+C 170 WRITE (IUNIT,1011)
+C     GO TO ( 180, 190, 200),ISCALE+1
+C 180 WRITE (IUNIT,1012)
+C     GO TO  210
+C 190 WRITE (IUNIT,1013)
+C     GO TO  210
+C 200 WRITE (IUNIT,1014)
+C
+C  SAME DATA ANOTHER PLOT
+C
+C 210 WRITE (IUNIT,1015)
+C     IF (REPEAT) GO TO  220
+C     WRITE (IUNIT,1016)
+C     GO TO  230
+C 220 WRITE (IUNIT,1017)
+C
+C  SHIELDING
+C
+C 230 WRITE(IUNIT,2000)
+C     IF (SHIELD) GO TO 231
+C     WRITE(IUNIT,2001)
+C     GO TO 232
+C 231 WRITE(IUNIT,2002)
+C
+C  INTERPOLATION
+C
+C 232 WRITE(IUNIT,2003)
+C     IF (LINEAR) GO TO 233
+C     WRITE(IUNIT,2004)
+C     GO TO 234
+C 233 WRITE(IUNIT,2005)
+C
+C  PLOT THE SHIELD
+C
+C 234 WRITE(IUNIT,2006)
+C     IF (SLDPLT) GO TO 235
+C     WRITE(IUNIT,2007)
+C     GO TO 236
+C 235 WRITE(IUNIT,2008)
+C
+C  EXTRAPOLATION
+C
+C 236 WRITE (IUNIT,1018)
+C     IF (EXTRAP) GO TO  240
+C     WRITE (IUNIT,1019)
+C     GO TO  250
+C 240 WRITE (IUNIT,1020)
+C
+C  STEP SIZE OR RESOLUTION OF THE GRID
+C
+C 250 WRITE (IUNIT,1021) IGRAD
+C
+C  MESSAGE AT BOTTOM OF PLOT
+C
+C     WRITE (IUNIT,1022)
+C     IF (MESS) GO TO  260
+C     WRITE (IUNIT,1023)
+C     GO TO  270
+C 260 WRITE (IUNIT,1024)
+C
+C  TITLE AT TOP OF PLOT
+C
+C 270 WRITE (IUNIT,1025)
+C     IF (TITLE) GO TO  280
+C     WRITE (IUNIT,1026)
+C     GO TO  290
+C 280 WRITE (IUNIT,1027)
+C
+C  SIZE OF TITLE
+C
+C 290 WRITE (IUNIT,1028) ITLSIZ
+C
+C  PRINT TITLE
+C
+C     IF (ICNT.EQ.0 .OR. .NOT.TITLE) GO TO  310
+C     ICC = 100
+C     IF (ICC .GT. ICNT) ICC = ICNT
+C     WRITE (IUNIT,1029) ISTRNG
+C
+C  DATA POINTS USED FOR PARTIAL DERIVATIVE ESTIMATION
+C
+C 310 WRITE (IUNIT,1030) NCP
+C
+C  LOOK AT TRIANGLES SWITCH
+C
+C     WRITE (IUNIT,1031)
+C     IF (LOOK) GO TO  320
+C     WRITE (IUNIT,1032)
+C     GO TO  330
+C 320 WRITE (IUNIT,1033)
+C
+C  ADVANCE FRAME BEFORE PLOTTING TRIANGULATION
+C
+C 330 WRITE (IUNIT,1034)
+C     IF (FRADV) GO TO  340
+C     WRITE (IUNIT,1035)
+C     GO TO  350
+C 340 WRITE (IUNIT,1036)
+C
+C  TRIANGLES ONLY PLOT
+C
+C 350 WRITE (IUNIT,1037)
+C     IF (EXTRI) GO TO  360
+C     WRITE (IUNIT,1038)
+C     GO TO  370
+C 360 WRITE (IUNIT,1039)
+C
+C  PLOT THE INPUT DATA VALUES
+C
+C 370 WRITE (IUNIT,1040)
+C     IF (PLDVLS) GO TO  380
+C     WRITE (IUNIT,1041)
+C     GO TO  390
+C 380 WRITE (IUNIT,1042)
+C
+C  FORMAT OF THE PLOTTED INPUT DATA
+C
+C 390 WRITE (IUNIT,1043)
+C     IF (LEN .NE. 0) GO TO  400
+C     WRITE (IUNIT,1044)
+C     GO TO  420
+C 400 WRITE (IUNIT,1045) FORM
+C
+C  SIZE OF THE PLOTTED DATA VALUES
+C
+C 420 WRITE (IUNIT,1046) ISIZEP
+C
+C  INTENSITY SETTINGS
+C
+C     WRITE (IUNIT,1047)
+C     WRITE (IUNIT,1048) INMAJ,INMIN,INLAB,INDAT
+C
+C  DISTLAY CONTOUR SETTING
+C
+C     WRITE (IUNIT,1049)
+C     IF (CON) GO TO  430
+C     WRITE (IUNIT,1050)
+C     GO TO  440
+C 430 WRITE (IUNIT,1051) NCL,(CL(I),I=1,NCL)
+C
+C  CONTOUR INCREMENT
+C
+C 440 WRITE (IUNIT,1052)
+C     IF (CINC) GO TO  450
+C     WRITE (IUNIT,1053)
+C     GO TO  460
+C 450 WRITE (IUNIT,1054) FINC
+C
+C  CONTOUR HIGH AND LOW VALUES
+C
+C 460 WRITE (IUNIT,1055)
+C     IF (CHILO) GO TO  470
+C     WRITE (IUNIT,1056)
+C     GO TO  480
+C 470 WRITE (IUNIT,1057) HI,FLO
+C
+C  CALL CONOT2 IF NOT QUICK VERSION
+C
+C 480 IF (IVER .NE. 1) CALL CONOT2 (IVER,IUNIT)
+C
+C  THE ROUTINE CONOT2 WAS GENERATED TO ELIMINATE COMPILER ERRORS
+C  RESULTING FROM TOO MANY FORMAT STATEMENTS IN ONE SUBROUTINE
+C
+C     RETURN
+C
+C
+C1001 FORMAT (1X,'CONRAQ')
+C1002 FORMAT (1X,'CONRAN')
+C1003 FORMAT (1X,'CONRAS')
+C1004 FORMAT ('+',6X,'-OPTION VALUE SETTINGS',/
+C    1        ,7X,'ALL NON-PWRIT VALUES APPLY TO THE UNSCALED DATA')
+C1005 FORMAT (5X,'PERIMETER, PER=')
+C1006 FORMAT ('+',19X,'OFF')
+C1007 FORMAT ('+',19X,'ON')
+C1008 FORMAT (5X,'GRID, GRD=')
+C1009 FORMAT ('+',14X,'OFF')
+C1010 FORMAT ('+',14X,'ON')
+C1011 FORMAT (5X,'SCALING OF PLOT ON FRAME, SCA=')
+C1012 FORMAT ('+',34X,'ON')
+C1013 FORMAT ('+',34X,'OFF')
+C1014 FORMAT ('+',34X,'PRI')
+C1015 FORMAT (5X,'SAME DATA FOR ANOTHER PLOT, REP=')
+C1016 FORMAT ('+',36X,'OFF')
+C1017 FORMAT ('+',36X,'ON')
+C1018 FORMAT (5X,'EXTRAPOLATION, EXT=')
+C1019 FORMAT ('+',23X,'OFF')
+C1020 FORMAT ('+',23X,'ON')
+C1021 FORMAT (5X,'RESOLUTION, SSZ=',I4)
+C1022 FORMAT (5X,'MESSAGE, MES=')
+C1023 FORMAT ('+',17X,'OFF')
+C1024 FORMAT ('+',17X,'ON')
+C1025 FORMAT (5X,'TITLE, TLE=')
+C1026 FORMAT ('+',15X,'OFF')
+C1027 FORMAT ('+',15X,'ON')
+C1028 FORMAT (5X,'TITLE SIZE IN PWRIT UNITS, STL=',I4)
+C1029 FORMAT (5X,'TITLE=',A64)
+C1030 FORMAT (5X,'DATA POINTS USED FOR PARTIAL DERIVATIVE',
+C    1' ESTIMATION,  NCP=',I4)
+C1031 FORMAT (5X,'LOOK AT TRIANGLES, TRI=')
+C1032 FORMAT ('+',27X,'OFF')
+C1033 FORMAT ('+',27X,'ON')
+C1034 FORMAT (5X,'ADVANCE FRAME BEFORE PLOTTING TRIANGULATION,',
+C    1' TFR=')
+C1035 FORMAT ('+',53X,'OFF')
+C1036 FORMAT ('+',53X,'ON')
+C1037 FORMAT (5X,'TRIANGULATION ONLY PLOT, TOP=')
+C1038 FORMAT ('+',33X,'OFF')
+C1039 FORMAT ('+',33X,'ON')
+C1040 FORMAT (5X,'PLOT THE INPUT DATA VALUES, PDV=')
+C1041 FORMAT ('+',36X,'OFF')
+C1042 FORMAT ('+',36X,'ON')
+C1043 FORMAT (5X,'FORMAT OF THE PLOTTED INPUT DATA, FMT=')
+C1044 FORMAT ('+',42X,'(G10.3)')
+C1045 FORMAT ('+',42X,A10)
+C1046 FORMAT (5X,'SIZE OF THE PLOTTED DATA VALUES IN PWRIT',
+C    1' UNITS, SPD=',I4)
+C1047 FORMAT (5X,'COLOR (INTENSITY) INDICES FOLLOW.',
+C    1' FOR CONRAQ MAJOR CONTOURS ARE ONLY USED')
+C1048 FORMAT (10X,'MAJOR CONTOUR LINES, MAJ=',I4,/
+C    1        ,10X,'MINOR CONTOUR LINES, MIN=',I4,/
+C    2        ,10X,'TITLE AND MESSAGE, LAB=',I4,/
+C    3        ,10X,'PLOTTED DATA VALUES, DAT=',I4)
+C1049 FORMAT (5X,'CONTOUR LEVELS,  CON=')
+C1050 FORMAT ('+',25X,'OFF')
+C1051 FORMAT ('+',25X,'ON, NCL=',I4,' ARRAY='/(10(2X,F10.3)))
+C1052 FORMAT (5X,'CONTOUR INCREMENT, CIL=')
+C1053 FORMAT ('+',27X,'OFF')
+C 1054 FORMAT ('+',27X,'ON, INCREMENT=',G10.3)
+C 1055 FORMAT (5X,'CONTOUR HIGH AND LOW VALUES, CHL=')
+C 1056 FORMAT ('+',37X,'OFF')
+C 1057 FORMAT ('+',37X,'ON, HI=',G10.3,' FLO=',G10.3)
+C 2000 FORMAT (5X,'SHIELDING, SLD=')
+C 2001 FORMAT ('+',19X,'OFF')
+C 2002 FORMAT ('+',19X,'ON')
+C 2003 FORMAT (5X,'INTERPOLATION, ITP=')
+C 2004 FORMAT ('+',23X,'C1 SURFACE')
+C 2005 FORMAT ('+',23X,'LINEAR')
+C 2006 FORMAT (5X,'PLOT THE SHIELD, SPT=')
+C 2007 FORMAT ('+',25X,'OFF')
+C 2008 FORMAT ('+',25X,'ON')
+C
+      END