Search Site | Contact Details | FAQ

ADAS Subroutine c5dplr

       subroutine c5dplr( ndpix  , npix   , wvmin  , wvmax  ,
     &                    ndcomp , ncomp  , wvcomp , emcomp ,
     &                    tev    , amss   ,
     &                    total
     &                  )

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  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 : (i*4)  ndcomp  = maximum number of components in feature
C  input : (i*4)  ncomp   = number of components in feature
C  input : (r*8)  wvcomp  = wavelenghts of components (ang)
C  input : (r*8)  emcomp  = emissivity of component
C
C  input : (r*8)  tev     = electron temperature (eV)
C  input : (r*8)  amss    = atomic mass number
C
C  output: (r*8)  total() = Doppler broadened emission in wavelength interval
C
C Routines:
C          Routine    Source    Brief Description
C          -------------------------------------------------------------
C
C
C Author:  Martin O'Mullane
C Date:    18-02-2005
C
C
C VERSION  : 1.1
C DATE     : 18-02-2005
C MODIFIED : Martin O'Mullane
C              - First version.
C
C-----------------------------------------------------------------------
      INTEGER             NCOMP,       NDCOMP,      NDPIX,       NPIX
      REAL*8              AMSS,        EMCOMP(NDCOMP),           TEV
      REAL*8              TOTAL(NDPIX),             WVCOMP(NDCOMP)
      REAL*8              WVMAX,       WVMIN
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk