Search Site | Contact Details | FAQ

ADAS Subroutine hawvrg

C
       subroutine hawvrg( ndwvl  , ndpix  , 
     &                    nwvl   , npix   , wvmin  , wvmax  ,
     &                    wvl    ,
     &                    lwvrg  , iwvrg   
     &                  )
c
c-----------------------------------------------------------------------
c
c  ****************** fortran77 subroutine: hawvrg *********************
c
c  purpose:  to check if a line wavelength is in one of the selected 
c            wavelength intervals  
c
c  calling program: hapecf
c
c
c  subroutine:
c
c  input : (i*4)  ndwvl   = maximum number of wavelength intervals
c  input : (i*4)  ndpix   = maximum number of pixels per wvln. interval
c
c  input : (i*4)  nwvl    = wvaelength intervals 
c  input : (i*4)  npix()  = number of pixels assigned to wavelength interval
c  input : (r*8)  wvmin() = lower limit of wavelength interval (ang)
c  input : (r*8)  wvmax() = upper limit of wavelength interval (ang)
c
c  input : (r*8)  wvl     = input line wavelength for test(ang)
c
c  output: (l*4)  lwvrg   = .true.  => spectrum line in selected range
c                         = .false. => spectrum line in selected range
c  output: (i*4)  iwvrg   = index of wavelength range in which lin lies
c                           if lwvrg = .true. otherwise set to zero
c
c routines:
c          routine    source    brief description
c          -------------------------------------------------------------
c          i4unit     adas      fetch unit number for output of messages
c
c author:  Hugh Summers, University of Strathclyde
c          JA7.08
c          tel. 0141-548-4196
c
c date:    15/01/02
c
c update:
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
      INTEGER             IWVRG,       NDPIX,       NDWVL
      INTEGER             NPIX(NDWVL), NWVL
      LOGICAL             LWVRG
      REAL*8              WVL,         WVMAX(NDWVL)
      REAL*8              WVMIN(NDWVL)
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk