Search Site | Contact Details | FAQ

ADAS Subroutine c5pixv

       subroutine c5pixv( ndpix  , npix   , wvmin , wvmax ,
     &                    cpixmx ,
     &                    tev    , amssno , wvl   , pec   ,
     &                    cpixa  , ind1   , ind2
     &                  )

C-----------------------------------------------------------------------
C
C  ****************** fortran77 subroutine: c5pixv *********************
C
C  Purpose:  Distribute Doppler broadened line emission into pixel range
C
C  Calling program: adas305, stark
C
C
C  Subroutine:
C
C  input : (i*4)  ndpix   = maximum number of pixels
C
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)  cpixmx  = largest pixel count currently found
C                           for the wavelength range
C
C  input : (r*8)  tev     = electron temperature (eV)
C  input : (r*8)  amssno  = atomic mass number
C  input : (r*8)  wvl     = input line wavelength for test(ang)
C  input : (r*8)  pec     = emissivity coefficient for component
C
C  output: (r*8)  cpixa() = counts in each pixel for the line
C  output: (r*8)  ind1    = first pixel with non-negligible count
C  output: (r*8)  ind2    = last pixel with non-negligible count
C
C          (r*8)  fcrit   = pixel counts for the selected line below
C                           this fraction of the largest pixel count are
C                           discounted.
C Routines:
C          Routine    Source    Brief Description
C          -------------------------------------------------------------
C          r8erfc     ADAS      returns erfc(x) function value
C
C
C Author:  Martin O'Mullane
C Date:    18-02-2005
C
C Notes:   Based on hapixv.for in adas810.
C
C
C
C VERSION  : 1.1
C DATE     : 18-02-2005
C MODIFIED : Martin O'Mullane
C              - First version.
C
C VERSION  : 1.2
C DATE     : 04-07-2007
C MODIFIED : Hugh Summers
C             - Corrected error in ind1 & ind2 return (see xxpixv).
C
C-----------------------------------------------------------------------
      INTEGER             IND1,        IND2,        NDPIX,       NPIX
      REAL*8              AMSSNO,      CPIXA(NDPIX),             CPIXMX
      REAL*8              PEC,         TEV,         WVL,         WVMAX
      REAL*8              WVMIN
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk