Ignore:
Timestamp:
Jan 3, 2020 5:10:32 AM (2 years ago)
Author:
vondreele
Message:

Weight plots now work for dPlot & qPlot in single and multiplots

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/fsource/powsubs/epsvoigt.for

    r1484 r4228  
    125125      DFDS = DEDF*DFRDG*(TL-TG)
    126126      DFDS = DFDS+(ETA*DTLDFW+(1.0-ETA)*DTGDFW)*DFWDG
    127       DFDS = 0.5*DFDS*STOFW/SQSGT                        !OK?
     127      DFDS = 0.5*DFDS*STOFW/SQSGT                        !OK
    128128
    129129      DFWDL = 0.2*DSDL*FWHM/SUMHM
     
    131131
    132132      DFDG = DEDF*DFRDL*(TL-TG)
    133       DFDG = DFDG+(ETA*DTLDFW+(1.0-ETA)*DTGDFW)*DFWDL            !WRONG
     133      DFDG = DFDG+(ETA*DTLDFW+(1.0-ETA)*DTGDFW)*DFWDL            !OK
    134134
    135135      DFDA = ETA*DTLDA+(1.0-ETA)*DTGDA                  !OK
Note: See TracChangeset for help on using the changeset viewer.