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)