Repatch (from linux) of OSX IRAF

1 files changed, 178 insertions, 0 deletions

diff --git a/sys/gio/ncarutil/conlib/conot2.f b/sys/gio/ncarutil/conlib/conot2.f
new file mode 100644
index 00000000..f2bc6aed
--- /dev/null
+++ b/sys/gio/ncarutil/conlib/conot2.f
@@ -0,0 +1,178 @@
+      SUBROUTINE CONOT2 (IVER,IUNIT)
+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  OUTPUT THE OPTION VALUES TO THE LINE PRINTER
+C
+C  CONTINUE FOR CONRAN AND CONRAS
+C
+C
+C
+C      COMMON /CONRA1/ CL(30)     ,NCL        ,OLDZ       ,PV(210)    ,
+C     1                FINC       ,HI         ,FLO
+C      COMMON /CONRA2/ REPEAT     ,EXTRAP     ,PER        ,MESS       ,
+C     1                ISCALE     ,LOOK       ,PLDVLS     ,GRD        ,
+C     2                CINC       ,CHILO      ,CON        ,LABON      ,
+C     3                PMIMX      ,SCALE      ,FRADV      ,EXTRI      ,
+C     4                BPSIZ      ,LISTOP
+C      COMMON /CONRA3/ IREC
+C      COMMON /CONRA4/ NCP        ,NCPSZ
+C      COMMON /CONRA5/ NIT        ,ITIPV
+C      COMMON /CONRA6/ XST        ,YST        ,XED        ,YED        ,
+C     1                STPSZ      ,IGRAD      ,IG         ,XRG        ,
+C     2                YRG        ,BORD       ,PXST       ,PYST       ,
+C     3                PXED       ,PYED       ,ITICK
+C      COMMON /CONRA7/ TITLE      ,ICNT   ,ITLSIZ
+C      COMMON /CONRA8/ IHIGH      ,INMAJ      ,INLAB      ,INDAT      ,
+C     1              LEN      ,IFMT       ,LEND       ,
+C     2                IFMTD      ,ISIZEP     ,INMIN
+C      COMMON /CONRA9/ ICOORD(500),NP         ,MXXY       ,TR         ,
+C     1                BR         ,TL         ,BL         ,CONV       ,
+C     2                XN         ,YN         ,ITLL       ,IBLL       ,
+C     3                ITRL       ,IBRL       ,XC         ,YC         ,
+C     4                ITLOC(210) ,JX         ,JY         ,ILOC       ,
+C     5                ISHFCT     ,XO         ,YO         ,IOC        ,NC
+C      COMMON /CONR10/ NT         ,NL         ,NTNL       ,JWIPT      ,
+C     1                JWIWL      ,JWIWP      ,JWIPL      ,IPR        ,
+C     2                ITPV
+C      COMMON /CONR11/ NREP       ,NCRT       ,ISIZEL     ,
+C     1                MINGAP     ,ISIZEM         ,
+C     2                TENS
+C      COMMON /CONR12/ IXMAX      ,IYMAX      ,XMAX       ,YMAX
+C      LOGICAL         REPEAT     ,EXTRAP     ,PER        ,MESS       ,
+C     1                LOOK       ,PLDVLS     ,GRD        ,LABON      ,
+C     2                PMIMX      ,FRADV      ,EXTRI      ,CINC       ,
+C     3                TITLE      ,LISTOP     ,CHILO      ,CON
+C      COMMON /CONR15/ ISTRNG
+C        CHARACTER*64 ISTRNG
+C        COMMON /CONR16/ FORM
+C        CHARACTER*10 FORM
+C        COMMON /CONR17/ NDASH, IDASH, EDASH
+C        CHARACTER*10 NDASH, IDASH, EDASH
+C
+C
+C      SAVE
+C
+C  LABEL THE CONTOURS
+C
+C      WRITE (IUNIT,1001)
+C      IF (LABON) GO TO  100
+C      WRITE (IUNIT,1002)
+C      GO TO  110
+C  100 WRITE (IUNIT,1003)
+C
+C  LABEL SIZE
+C
+C  110 WRITE (IUNIT,1004) ISIZEL
+C
+C  SCALE DATA ON CONTOURS
+C
+C      WRITE (IUNIT,1005)
+C      IF (SCALE .NE. 1.) GO TO  120
+C      WRITE (IUNIT,1006)
+C      GO TO  130
+C  120 WRITE (IUNIT,1007) SCALE
+C
+C  TENSION FACTOR
+C
+C  130 WRITE (IUNIT,1008) TENS
+C
+C  PLOT RELATIVE MINS AND MAXS
+C
+C      WRITE (IUNIT,1009)
+C      IF (PMIMX) GO TO  140
+C      WRITE (IUNIT,1010)
+C      GO TO  150
+C  140 WRITE (IUNIT,1011)
+C
+C  SIZE OF MINIMUM AND MAXIMUM LABELS
+C
+C  150 WRITE (IUNIT,1012) ISIZEM
+C
+C  DASH PATTERN
+C
+C      WRITE (IUNIT,1013)
+C      IF (IDASH(1:1) .EQ. ' ') GO TO  170
+C      WRITE (IUNIT,1014) IDASH
+C      GO TO  180
+C  170 WRITE (IUNIT,1015)
+C  180 IF (EDASH(1:1) .EQ. ' ') GO TO  200
+C      WRITE (IUNIT,1016) EDASH
+C      GO TO  210
+C  200 WRITE (IUNIT,1017)
+C  210 IF (NDASH(1:1) .EQ. ' ') GO TO  230
+C      WRITE (IUNIT,1018) NDASH
+C      GO TO  240
+C  230 WRITE (IUNIT,1019)
+C
+C  DASH PATTERN BREAK POINT
+C
+C  240 WRITE (IUNIT,1020) BPSIZ
+C
+C  PRINT MINOR LINE GAP
+C
+C      ITT = MINGAP-1
+C      WRITE (IUNIT,1021) ITT
+C      RETURN
+C
+C 1001 FORMAT (5X,'LABEL THE CONTOURS, LAB=')
+C 1002 FORMAT ('+',28X,'OFF')
+C 1003 FORMAT ('+',28X,'ON')
+C 1004 FORMAT (5X,'CONTOUR LABEL SIZE IN PWRIT UNITS, LSZ=',I4)
+C 1005 FORMAT (5X,'SCALE THE DATA ON CONTOUR LINES, SDC=')
+C 1006 FORMAT ('+',41X,'OFF')
+C 1007 FORMAT ('+','ON, SCALE FACTOR=',G10.3)
+C 1008 FORMAT (5X,'TENSION FACTOR (USED FOR SMOOTH AND SUPER), TEN=',
+C     1        F6.2)
+C 1009 FORMAT (5X,'PLOT RELATIVE MINIMUMS AND MAXIMUMS, PMM=')
+C 1010 FORMAT ('+',45X,'OFF')
+C 1011 FORMAT ('+',45X,'ON')
+C 1012 FORMAT (5X,'SIZE OF MIN AND MAX LABELS IN PWRIT UNITS SML=',
+C     1        I4)
+C 1013 FORMAT (5X,'DASH PATTERN GTR=GREATER, EQU=EQUAL, LSS=LESS')
+C 1014 FORMAT (10X,'GTR=',A10)
+C 1015 FORMAT (10X,'GTR=$$$$$$$$$$')
+C 1016 FORMAT (10X,'EQU=',A10)
+C 1017 FORMAT (10X,'EQU=$$$$$$$$$$')
+C 1018 FORMAT (10X,'LSS=',A10)
+C 1019 FORMAT (10X,'LSS=$$$$$$$$$$')
+C 1020 FORMAT (5X,'DASH PATTERN BREAK POINT, DBP=',G10.3)
+C 1021 FORMAT (5X,'MINOR LINE COUNT=',I3)
+C
+C
+C******************************************************************
+C*                                                                *
+C*                   REVISION HISTORY                             *
+C*                                                                *
+C*  JUNE 1980   ADDED CONTERP TO ULIB                             *
+C*  AUGUST 1980 FIXED THE FOLLOWING PROBLEMS                      *
+C*              1.PLOTTING OF INPUT DATA VALUES                   *
+C*              2.SETTING OF MINIMUM INTENSITY IN ALL OPTION      *
+C*              3.SETTING OF EQU FLAG IN CONTOUR DASH PATTERN     *
+C*              4.TURNING OFF OF SIZE OF PLOTTED DATA OPTION      *
+C*  DECEMBER 1980 FIXED CONTOUR SELECTION ALGORITHM  AND MOVED IN *
+C*                DASH PACKAGE COMMON BLOCK INTPR
+C*  MARCH 1981  FIXED NON-PORTABLE STATEMENT ORDERING IN CONSET   *
+C*  APRIL 1981  FIXED OPTION LISTING ROUTINE                      *
+C*              ADDED MINOR LINE COUNT OPTION                     *
+C*  JULY 1983   ADDED LINEAR INTERPOLATION AND SHIELDING          *
+C*  JULY 1984     CONVERTED TO STANDARD FORTRAN77 AND GKS         *
+C*  AUGUST 1985 DELETED LOC (MACHINE DEPENDENT FUNCTION), CHANGED *
+C*              COMMON /CONR13/                                   *
+C*                                                                *
+C******************************************************************
+C
+      END