ATEST_B.OUT

      PROGRAM TEST
      USE DEFALT
      USE A1
      USE TRASH
      IMPLICIT NONE
      INTEGER(2) :: IJKLMN,MYCDEF
! ** BEGIN  EZUP-GENERATED 'INTENT' STATEMENTS **
! ** END OF EZUP-GENERATED 'INTENT' STATEMENTS **
!     sample program for EZUP tests
!     WILL NOT REALLY RUN!  WON'T EVEN COMPILE !!!
!
      CHARACTER(LEN=*) :: AVALUE,A2
      CHARACTER(LEN=*) :: BVALUE(*)
      CHARACTER(LEN=1) :: ANK1(7)
      CHARACTER(LEN=8) :: FAFORM(3)
      CHARACTER(LEN=42) :: OBSURN(10)
      CHARACTER(LEN=1) :: A
      CHARACTER(LEN=4) :: KHAR
      CHARACTER(LEN=12) :: FNAME
      CHARACTER(LEN=127) :: CARD
      CHARACTER(LEN=1) :: LABEL(400,5,2)
      CHARACTER(LEN=1) :: SPC
      LOGICAL :: OPND,EXST
      REAL(4) :: QQ(32),AA(32)
      REAL(4) :: X,Y,Z
      REAL(4) :: X1,Y1
      REAL(8) :: X2,Y2
      COMPLEX(4) :: ZRATIO,ZNUM,ZDEN
      REAL(8) :: ABCD,ABDE
      COMPLEX(8) :: ZCOMP1,ZCOMP2
      COMPLEX(8) :: ZCOMPD,ZVALUE
!
!
!
!
!* WARNING: CANNOT CONVERT "DATA" STATEMENTS
      DATA IOOUT/6/ IDV /3/ IEND/72/ IBGN/7/ X0/1.E8/ SPC/' '/
!* WARNING: CANNOT CONVERT "DATA" STATEMENTS
      DATA FAFORM(1)/'AVERAGE ' /FAFORM(2)/'THIN    '/FAFORM(3)/'THICK  &
     & '/ MAXNAM/10/
!* WARNING: CANNOT CONVERT "DATA" STATEMENTS
      DATA OBSURN( 1)/'DRY                                       '/OBSUR&
     &N(2)/'MOIST                                     '/OBSURN(3)/'WET  &
     &                                     '/OBSURN(4)/'FROZEN          &
     &                          '/OBSURN(5)/'ICE                        &
     &               '/OBSURN(6)/'SNOW (LESS THAN HALF OF SURFACE COVERE&
     &D)  '/OBSURN(7)/'SNOW (BETWEEN HALF AND FULL SURFACE COVER)'/OBSUR&
     &N(8)/'SNOW (GROUND COMPLETELY COVERED)          '/OBSURN(9)/'LOOSE&
     & DRY/SAND/DUST/SNOW (50-98 % COVER)  '/OBSURN(10)/'LOOSE DRY/SAND/&
     &DUST/SNOW (COMPLETE-COVER) '/
!
      DO K=1,12
         DO J=1,31,2
            QQ(J)=J*2.34
         END DO
      WRITE(*,*)'LOOK AT WHAT HAPPENS TO THE NEXT LINE!'
      END DO
!
      IF(X-X0)30,50,60
      IF(XIDABC.EQ.4)REWIND 22
      IF(X.EQ.5)CALL BOGUS(GRIPE)
   30 GOTO(70,200,200,200,200,200,200,120,120,120,120,120,120,120),IDV
      FNAME='TRASH.TXT'
!     the next two lines begin with TABS
      IF(CARD(IPOS:IPOS).EQ.'(')GO TO  90
      READ(8,'(A)')
      READ(8,'(A)',END=120)CARD
   50 WRITE(IOOUT,'(A)') ' UNEXPECTED EOF ON INPUT UNIT'
      STOP
   60 WRITE(IOOUT,'(A)') ' A NON EOSAEL FORMAT INPUT CARD ENCOUNTERED'
      WRITE(IOOUT,'(A)') CARD
      STOP
!
!    NOTE ADDITION OF SUBROUTINE UCA
!
   70 CALL UCA(ALPHA1)
!
      DO KK=1,MAXNAM
!     CHECK FOR CARD TYPES
         IF(ALPHA1.NE.RNAMES(KK))GO TO  90
         INOPT=KK
      END DO
   90 WRITE(*,*)'HELP!'
      WRITE(IOOUT,100) A,B,C
!* WARNING: CANNOT CONVERT "FORMAT" STATEMENTS
  100 FORMAT(1x,5e15.3)
      READ(1,130,ERR=150,END=200)A
  120 IJKLMN=1
      KHAR='YES '
      IF(KHAR.EQ.'YES ')GO TO  140
      INQUIRE(FILE=FNAME,OPENED=OPND,EXIST=EXST,ERR=200)
      OPEN(UNIT=8,FILE=FNAME,ERR=230,STATUS = 'UNKNOWN')
      WRITE(*,*)' THIS  IS A FORTRAN 77 FORMAT THAT WILL CONTINUE ON NEX&
     &T DATA CARD IMAGE.                                                &
     & THIS CARD MAY NOT BE A LEGAL FORTRAN CARD.                       &
     & ANOTHER CC.'
!* WARNING: CANNOT CONVERT "FORMAT" STATEMENTS
  130 FORMAT(1X,'A')
  140 IJKLMN=1
  150 DO I=1,7
         X=4
         DO J=1,INOPT
!     next line begins with two TABS
            DO K=1,5
               IF(X.EQ.3)THEN
                  Y=5
               ELSE IF(X.EQ.27.0) THEN
                  C=6.8**Y
               END IF
               DO M=1,4
                  IF(LABEL(J,K,M).EQ.A)GO TO  170
                  IF(LABEL(J,K,M).EQ.7)GO TO  180
               END DO
               LABEL(J,K,I)=SPC
  170 MYCDEF=0
            END DO
         END DO
!
  180    IJKLMN=1
         X=8+C
      END DO
  200 IJKLMN=1
      IF(I.EQ.1)GO TO  210
      GOTO60
  210 IJKLMN=1
  230 CALL TRASH(TIME,RETIME,DUMMY)
      CLOSE(8,STATUS='DELETE')
!
      IF(QQ(ILAY).LT.0.0.OR.QQ(ILAY).GT.10000)CALL ERRMSG(19,*260,NRET2)
      CALL INDATF(ISEA,LAMDA,IPRINT,N,ISTORE,BR0,*240,NRET1)
      CALL SPF(ABETA(IT),Q(L),PHASE,MSPF(L),G1(L),G2(L),                &
     &CC(L),*250,NRET2)
      IF(ISEA.EQ.1.AND.JRT.EQ.1)CALLSPF(SABETA,Q(L),SPHASE,MSPF(L),G1(L)&
     &,G2(L),CC(L),*250,NRET2)
      CALL SKYRAD(N,ALB,ALBPR,ISEA,JUD,JTOT,JRT,*250,NRET2)
      IF(AA(ILAY).LT.0.0.OR.AA(ILAY).GT.1)CALL ERRMSG(20,*260,NRET2)
      IF(IEND.LE.0.OR.IBGN.LE.0)CALL ERRMSG(63,*270,NRET3)
  240 IJKLMN=1
  250 IJKLMN=1
  260 IJKLMN=1
  270 IJKLMN=1
      IF(EXST)WRITE(*,*)'EXISTS'
      IF(OPND)WRITE(*,*)'OPENED'
      WRITE(IOOUT,*)(FAFORM(L),L=1,3)
      WRITE(IOOUT,*)(OBSURN(4))
      CALL EXIT
      END PROGRAM TEST
! ** LABEL    10 WAS NEVER REFERENCED, SO LABEL AND/OR LINE WAS DELETED.
! ** LABEL    20 WAS NEVER REFERENCED, SO LABEL AND/OR LINE WAS DELETED.
! ** LABEL    40 WAS NEVER REFERENCED, SO LABEL AND/OR LINE WAS DELETED.
! ** LABEL    80 WAS NEVER REFERENCED, SO LABEL AND/OR LINE WAS DELETED.
! ** LABEL   110 WAS NEVER REFERENCED, SO LABEL AND/OR LINE WAS DELETED.
! ** LABEL   160 WAS NEVER REFERENCED, SO LABEL AND/OR LINE WAS DELETED.
! ** LABEL   190 WAS NEVER REFERENCED, SO LABEL AND/OR LINE WAS DELETED.
! ** LABEL   220 WAS NEVER REFERENCED, SO LABEL AND/OR LINE WAS DELETED.
!
!    LIST OF APPARENT VARIABLE NAMES FOLLOWS:
!    BUT,ARRAY NAMES WILL GENERALLY BE MISSING.
!    AND THERE ARE SOME ERRORS LIKE END, FILE
!    PICKED FROM THINGS LIKE: FILE=, END=, ETC.
!
!     LEN
!     K
!     J
!     FNAME
!     KK
!     INOPT
!     MYCDEF
!     IJKLMN
!     KHAR
!     I
!     X
!     Y
!     C
!     M
!     L
! $$$$$$$$$$$$$ END OF PROGRAM UNIT $$$$$$$$$$$
!
!
!** WARNING: NEXT FUNCTION-NAME'S DATA TYPE DECLARATION IS INCOMPLETE!
      FUNCTION XRANG(X,XMIN,XMAX)
      IMPLICIT NONE
      INTEGER(2) :: IJKLMN,MYCDEF
! ** BEGIN  EZUP-GENERATED 'INTENT' STATEMENTS **
      REAL              :: XRANG
      REAL(4)  , INTENT(INOUT) :: X
      REAL(4)  , INTENT(INOUT) :: XMIN
      REAL(4)  , INTENT(INOUT) :: XMAX
! ** END OF EZUP-GENERATED 'INTENT' STATEMENTS **
      REAL(4) :: X,XMIN,XMAX
      XRANG=1.0
      IF(X-XMAX)10,10,30
   10 IF(X-XMIN)30,20,20
   20 XRANG=0.0
   30 RETURN
      END FUNCTION XRANG
!
!    LIST OF APPARENT VARIABLE NAMES FOLLOWS:
!    BUT,ARRAY NAMES WILL GENERALLY BE MISSING.
!    AND THERE ARE SOME ERRORS LIKE END, FILE
!    PICKED FROM THINGS LIKE: FILE=, END=, ETC.
!
!     XRANG
! $$$$$$$$$$$$$ END OF PROGRAM UNIT $$$$$$$$$$$
!
! ********************************************************************
      SUBROUTINE PUNISH(A,B,C)
      IMPLICIT NONE
      INTEGER(2) :: IJKLMN,MYCDEF
! ** BEGIN  EZUP-GENERATED 'INTENT' STATEMENTS **
      REAL(4)  , INTENT(INOUT) :: A
      REAL(4)  , INTENT(INOUT) :: B
      REAL(4)  , INTENT(INOUT) :: C
! ** END OF EZUP-GENERATED 'INTENT' STATEMENTS **
      REAL(4) :: A
      REAL(4) :: B,C
      B=SQRT(A)
      C=A+B
      DO J=1,7
      C=C+J
      END DO
      RETURN
      END SUBROUTINE PUNISH
! ** LABEL    10 WAS NEVER REFERENCED, SO LABEL AND/OR LINE WAS DELETED.
! ** LABEL    20 WAS NEVER REFERENCED, SO LABEL AND/OR LINE WAS DELETED.
!
!    LIST OF APPARENT VARIABLE NAMES FOLLOWS:
!    BUT,ARRAY NAMES WILL GENERALLY BE MISSING.
!    AND THERE ARE SOME ERRORS LIKE END, FILE
!    PICKED FROM THINGS LIKE: FILE=, END=, ETC.
!
!     B
!     C
!     J
! $$$$$$$$$$$$$ END OF PROGRAM UNIT $$$$$$$$$$$
!
!
      SUBROUTINE DUMMY
      USE A1
      IMPLICIT NONE
      INTEGER(2) :: IJKLMN,MYCDEF
! ** BEGIN  EZUP-GENERATED 'INTENT' STATEMENTS **
! ** END OF EZUP-GENERATED 'INTENT' STATEMENTS **
!
! the following type declarations for ix, iy and iz will illustrate the
! error made by ezup when it attempts to assign data types for the same
! three variables which were imiplicit integers in common/trash/ in the
! first program unit
      REAL(4) :: IX,IY,IZ
!
      I=4
      RETURN
      END SUBROUTINE DUMMY
!
!    LIST OF APPARENT VARIABLE NAMES FOLLOWS:
!    BUT,ARRAY NAMES WILL GENERALLY BE MISSING.
!    AND THERE ARE SOME ERRORS LIKE END, FILE
!    PICKED FROM THINGS LIKE: FILE=, END=, ETC.
!
!     I
! $$$$$$$$$$$$$ END OF PROGRAM UNIT $$$$$$$$$$$
!
!
      BLOCK DATA
      IMPLICIT NONE
      INTEGER(2) :: IJKLMN,MYCDEF
! ** BEGIN  EZUP-GENERATED 'INTENT' STATEMENTS **
! ** END OF EZUP-GENERATED 'INTENT' STATEMENTS **
!
      INCLUDE 'EZUP.INC'
!
!* WARNING: CANNOT CONVERT "DATA" STATEMENTS
      DATA KEYWDS/'CHAR','COMM','COMP','DIME','DOUB','EQUI','INTE',     &
     &            'REAL','DATA','IMPL','EXTE','FUNC','END ','ENDF',     &
     &            'LOGI','BLOC','BACK','PARA','EXTE','INTR','REWI',     &
     &            'WRIT','FORM','SUBR','CALL','PROG','STOP','SAVE',     &
     &            'OPEN','RETU','INQU','ELSE','GO T','GOTO','CONT',     &
     &            'ENDI','INCL','ENTR','ENDD','    '/
!
      END BLOCK DATA
! ********************************************************************
      FUNCTION XRANG1(X,XMIN,XMAX)
      IMPLICIT NONE
      INTEGER(2) :: IJKLMN,MYCDEF
! ** BEGIN  EZUP-GENERATED 'INTENT' STATEMENTS **
      REAL(4)              :: XRANG1
      REAL(4)  , INTENT(INOUT) :: X
      REAL(4)  , INTENT(INOUT) :: XMIN
      REAL(4)  , INTENT(INOUT) :: XMAX
! ** END OF EZUP-GENERATED 'INTENT' STATEMENTS **
      REAL(4) :: X,XMIN,XMAX
      XRANG=1.0
      IF(X-XMAX)10,10,30
   10 IF(X-XMIN)30,20,20
   20 XRANG=0.0
   30 RETURN
      END FUNCTION XRANG1
!
!    LIST OF APPARENT VARIABLE NAMES FOLLOWS:
!    BUT,ARRAY NAMES WILL GENERALLY BE MISSING.
!    AND THERE ARE SOME ERRORS LIKE END, FILE
!    PICKED FROM THINGS LIKE: FILE=, END=, ETC.
!
!     XRANG
! $$$$$$$$$$$$$ END OF PROGRAM UNIT $$$$$$$$$$$
!
! ********************************************************************
      FUNCTION XRANG2(X,XMIN,XMAX)
      IMPLICIT NONE
      INTEGER(2) :: IJKLMN,MYCDEF
! ** BEGIN  EZUP-GENERATED 'INTENT' STATEMENTS **
      REAL(8)              :: XRANG2
      REAL(4)  , INTENT(INOUT) :: X
      REAL(4)  , INTENT(INOUT) :: XMIN
      REAL(4)  , INTENT(INOUT) :: XMAX
! ** END OF EZUP-GENERATED 'INTENT' STATEMENTS **
      REAL(4) :: X,XMIN,XMAX
      XRANG=1.0
      IF(X-XMAX)10,10,30
   10 IF(X-XMIN)30,20,20
   20 XRANG=0.0
   30 RETURN
      END FUNCTION XRANG2
!
!    LIST OF APPARENT VARIABLE NAMES FOLLOWS:
!    BUT,ARRAY NAMES WILL GENERALLY BE MISSING.
!    AND THERE ARE SOME ERRORS LIKE END, FILE
!    PICKED FROM THINGS LIKE: FILE=, END=, ETC.
!
!     XRANG
! $$$$$$$$$$$$$ END OF PROGRAM UNIT $$$$$$$$$$$
!
! ********************************************************************
!** WARNING: NEXT FUNCTION-NAME'S DATA TYPE DECLARATION IS INCOMPLETE!
      FUNCTION XRANG3(X,XMIN,XMAX)
      IMPLICIT NONE
      INTEGER(2) :: IJKLMN,MYCDEF
! ** BEGIN  EZUP-GENERATED 'INTENT' STATEMENTS **
      COMPLEX              :: XRANG3
      REAL(4)  , INTENT(INOUT) :: X
      REAL(4)  , INTENT(INOUT) :: XMIN
      REAL(4)  , INTENT(INOUT) :: XMAX
! ** END OF EZUP-GENERATED 'INTENT' STATEMENTS **
      REAL(4) :: X,XMIN,XMAX
      XRANG=1.0
      IF(X-XMAX)10,10,30
   10 IF(X-XMIN)30,20,20
   20 XRANG=0.0
   30 RETURN
      END FUNCTION XRANG3
!
!    LIST OF APPARENT VARIABLE NAMES FOLLOWS:
!    BUT,ARRAY NAMES WILL GENERALLY BE MISSING.
!    AND THERE ARE SOME ERRORS LIKE END, FILE
!    PICKED FROM THINGS LIKE: FILE=, END=, ETC.
!
!     XRANG
! $$$$$$$$$$$$$ END OF PROGRAM UNIT $$$$$$$$$$$
!
! ********************************************************************
      FUNCTION XRANG4(X,XMIN,XMAX)
      IMPLICIT NONE
      INTEGER(2) :: IJKLMN,MYCDEF
! ** BEGIN  EZUP-GENERATED 'INTENT' STATEMENTS **
      COMPLEX(8)              :: XRANG4
      REAL(4)  , INTENT(INOUT) :: X
      REAL(4)  , INTENT(INOUT) :: XMIN
      REAL(4)  , INTENT(INOUT) :: XMAX
! ** END OF EZUP-GENERATED 'INTENT' STATEMENTS **
      REAL(4) :: X,XMIN,XMAX
      XRANG=1.0
      IF(X-XMAX)10,10,30
   10 IF(X-XMIN)30,20,20
   20 XRANG=0.0
   30 RETURN
      END FUNCTION XRANG4
!
!    LIST OF APPARENT VARIABLE NAMES FOLLOWS:
!    BUT,ARRAY NAMES WILL GENERALLY BE MISSING.
!    AND THERE ARE SOME ERRORS LIKE END, FILE
!    PICKED FROM THINGS LIKE: FILE=, END=, ETC.
!
!     XRANG
! $$$$$$$$$$$$$ END OF PROGRAM UNIT $$$$$$$$$$$
!
! ********************************************************************
      FUNCTION XRANG5(X,XMIN,XMAX)
      IMPLICIT NONE
      INTEGER(2) :: IJKLMN,MYCDEF
! ** BEGIN  EZUP-GENERATED 'INTENT' STATEMENTS **
      COMPLEX(16)              :: XRANG5
      REAL(4)  , INTENT(INOUT) :: X
      REAL(4)  , INTENT(INOUT) :: XMIN
      REAL(4)  , INTENT(INOUT) :: XMAX
! ** END OF EZUP-GENERATED 'INTENT' STATEMENTS **
      REAL(4) :: X,XMIN,XMAX
      XRANG=1.0
      IF(X-XMAX)10,10,30
   10 IF(X-XMIN)30,20,20
   20 XRANG=0.0
   30 RETURN
      END FUNCTION XRANG5
!
!    LIST OF APPARENT VARIABLE NAMES FOLLOWS:
!    BUT,ARRAY NAMES WILL GENERALLY BE MISSING.
!    AND THERE ARE SOME ERRORS LIKE END, FILE
!    PICKED FROM THINGS LIKE: FILE=, END=, ETC.
!
!     XRANG
! $$$$$$$$$$$$$ END OF PROGRAM UNIT $$$$$$$$$$$
!
! ********************************************************************
!** WARNING: NEXT FUNCTION-NAME'S DATA TYPE DECLARATION IS INCOMPLETE!
      FUNCTION XRANG6(X,XMIN,XMAX)
      IMPLICIT NONE
      INTEGER(2) :: IJKLMN,MYCDEF
! ** BEGIN  EZUP-GENERATED 'INTENT' STATEMENTS **
      DOUBLE COMPLEX              :: XRANG6
      REAL(4)  , INTENT(INOUT) :: X
      REAL(4)  , INTENT(INOUT) :: XMIN
      REAL(4)  , INTENT(INOUT) :: XMAX
! ** END OF EZUP-GENERATED 'INTENT' STATEMENTS **
      REAL(4) :: X,XMIN,XMAX
      XRANG=1.0
      IF(X-XMAX)10,10,30
   10 IF(X-XMIN)30,20,20
   20 XRANG=0.0
   30 RETURN
      END FUNCTION XRANG6
!
!    LIST OF APPARENT VARIABLE NAMES FOLLOWS:
!    BUT,ARRAY NAMES WILL GENERALLY BE MISSING.
!    AND THERE ARE SOME ERRORS LIKE END, FILE
!    PICKED FROM THINGS LIKE: FILE=, END=, ETC.
!
!     XRANG
! $$$$$$$$$$$$$ END OF PROGRAM UNIT $$$$$$$$$$$
!
! ********************************************************************
!** WARNING: NEXT FUNCTION-NAME'S DATA TYPE DECLARATION IS INCOMPLETE!
      FUNCTION XRANG7(X,XMIN,XMAX)
      IMPLICIT NONE
      INTEGER(2) :: IJKLMN,MYCDEF
! ** BEGIN  EZUP-GENERATED 'INTENT' STATEMENTS **
      DOUBLE PRECISION              :: XRANG7
      REAL(4)  , INTENT(INOUT) :: X
      REAL(4)  , INTENT(INOUT) :: XMIN
      REAL(4)  , INTENT(INOUT) :: XMAX
! ** END OF EZUP-GENERATED 'INTENT' STATEMENTS **
      REAL(4) :: X,XMIN,XMAX
      XRANG=1.0
      IF(X-XMAX)10,10,30
   10 IF(X-XMIN)30,20,20
   20 XRANG=0.0
   30 RETURN
      END FUNCTION XRANG7
!
!    LIST OF APPARENT VARIABLE NAMES FOLLOWS:
!    BUT,ARRAY NAMES WILL GENERALLY BE MISSING.
!    AND THERE ARE SOME ERRORS LIKE END, FILE
!    PICKED FROM THINGS LIKE: FILE=, END=, ETC.
!
!     XRANG
! $$$$$$$$$$$$$ END OF PROGRAM UNIT $$$$$$$$$$$
!
! ********************************************************************
!** WARNING: NEXT FUNCTION-NAME'S DATA TYPE DECLARATION IS INCOMPLETE!
      FUNCTION XRANG7(X,XMIN,XMAX)
      IMPLICIT NONE
      INTEGER(2) :: IJKLMN,MYCDEF
! ** BEGIN  EZUP-GENERATED 'INTENT' STATEMENTS **
      UNKNOWN              ::  XRANG7
      REAL(4)  , INTENT(INOUT) :: X
      REAL(4)  , INTENT(INOUT) :: XMIN
      REAL(4)  , INTENT(INOUT) :: XMAX
! ** END OF EZUP-GENERATED 'INTENT' STATEMENTS **
      REAL(4) :: X,XMIN,XMAX
      XRANG=1.0
      IF(X-XMAX)10,10,30
   10 IF(X-XMIN)30,20,20
   20 XRANG=0.0
   30 RETURN
      END FUNCTION XRANG7
!
!    LIST OF APPARENT VARIABLE NAMES FOLLOWS:
!    BUT,ARRAY NAMES WILL GENERALLY BE MISSING.
!    AND THERE ARE SOME ERRORS LIKE END, FILE
!    PICKED FROM THINGS LIKE: FILE=, END=, ETC.
!
!     XRANG
! $$$$$$$$$$$$$ END OF PROGRAM UNIT $$$$$$$$$$$
!
! ********************************************************************
!** WARNING: NEXT FUNCTION-NAME'S DATA TYPE DECLARATION IS INCOMPLETE!
      FUNCTION IRANG0(I,IMIN,IMAX)
      IMPLICIT NONE
      INTEGER(2) :: IJKLMN,MYCDEF
! ** BEGIN  EZUP-GENERATED 'INTENT' STATEMENTS **
      UNKNOWN              ::  IRANG0
      INTEGER(4)  , INTENT(INOUT) :: I
      INTEGER(4)  , INTENT(INOUT) :: IMIN
      INTEGER(4)  , INTENT(INOUT) :: IMAX
! ** END OF EZUP-GENERATED 'INTENT' STATEMENTS **
      INTEGER(4) :: I,IMIN,IMAX
      IRANG=1.0
      IF(I-IMAX)10,10,30
   10 IF(X-XMIN)30,20,20
   20 IRANG=0.0
   30 RETURN
      END FUNCTION IRANG0
!
!    LIST OF APPARENT VARIABLE NAMES FOLLOWS:
!    BUT,ARRAY NAMES WILL GENERALLY BE MISSING.
!    AND THERE ARE SOME ERRORS LIKE END, FILE
!    PICKED FROM THINGS LIKE: FILE=, END=, ETC.
!
!     IRANG
! $$$$$$$$$$$$$ END OF PROGRAM UNIT $$$$$$$$$$$
!