Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 3 additions & 1 deletion src/DIS/SetScaleVariationProcedure.f
Original file line number Diff line number Diff line change
Expand Up @@ -3,9 +3,11 @@
* SetScaleVariationProcedure.f:
*
* This subroutine sets the the procedure to be used to vary
* factorisation and remormalisation scale:
* factorisation and renormalisation scale:
* - 0: consistent scale variation in DIS and evolution
* - 1: variation only in the DIS structure functions
* - 2: renormalisation scale variation in structure functions,
* factorisation scale variation in the evolution
*
************************************************************************
subroutine SetScaleVariationProcedure(svproc)
Expand Down
9 changes: 6 additions & 3 deletions src/DIS/initParametersDIS.f
Original file line number Diff line number Diff line change
Expand Up @@ -191,14 +191,16 @@ subroutine initParametersDIS
call exit(-10)
endif
*
if(ScVarProc.lt.0.or.ScVarProc.gt.1)then
if(ScVarProc.lt.0.or.ScVarProc.gt.2)then
write(6,*) achar(27)//"[31mERROR:"
write(6,*) "Scale variation procedure unknown:"
write(6,*) "ScVarProc = ",ScVarProc
write(6,*) " "
write(6,*) "The options are:"
write(6,*) "- 0"
write(6,*) "- 1"
write(6,*) "-0 consistent scale variation in DIS and evolution"
write(6,*) "-1 variation only in the DIS structure functions"
write(6,*) "-2 ren. scale variation in structure functions"
write(6,*) " fact. scale variation in the evolution"
write(6,*) achar(27)//"[0m"
call exit(-10)
endif
Expand All @@ -208,6 +210,7 @@ subroutine initParametersDIS
if(krenQ.ne.1d0.or.kfacQ.ne.1d0)then
call SetRenFacRatio(dsqrt(krenQ/kfacQ))
if(ScVarProc.eq.1) call SetRenFacRatio(1d0)
if(ScVarProc.eq.2) kfacQ = 1d0
endif
*
* Ensure that for the time-like evolution only proper settings are used
Expand Down