Commit c125f5af authored by Zolnierczuk, Piotr's avatar Zolnierczuk, Piotr
Browse files

fixes issue #30 - allow for negative phase step

parent ac2170bf

Makefile.version

+1 −1
Original line number Diff line number Diff line
@@ -3,7 +3,7 @@ export PROJECT=drspine 


export VERSION_MAJOR=1

export VERSION_MINOR=4

export VERSION_RELEASE=1

export VERSION_RELEASE=2



export PROJLIB=lib$(PROJECT).a

export PROJARCH=$(PROJECT)-$(VERSION_MAJOR).$(VERSION_MINOR)

sources/fit_utils.f90

+1 −1
Original line number Diff line number Diff line
@@ -346,7 +346,7 @@ contains 
       !! ! functions is very close to a (smooth) parabola....

       dj_phase_step = centerbin%delta_J(2)%value-centerbin%delta_J(1)%value

       dipt:  do ipt=-NIPT,NIPT

          call assert(dj_phase_step>0,'get_phase_offset: phase step must be positive')

          call assert(dj_phase_step/=0,'get_phase_offset: phase step must non-zero')

          dj = ipt*dj_phase_step/real(xprange*NIPT) + djoffset

          ssq_allpix = 0

          ssq_norpix = 0