IF ( ctrlSmoothCorrel2D ) THEN
ctrlSmoothCorrel2D = useSmoothCorrel2DinAdMode
& ctrlSmoothCorrel2D
ctrlSmoothCorrel2D = useSmoothCorrel2DinFwdMode
& ctrlSmoothCorrel2D,
logical ctrlSmoothCorrel2D, ctrlSmoothCorrel3D
IF ( .NOT.ctrlSmoothCorrel2D ) THEN
& doInitXX, ctrlSmoothCorrel3D, ctrlSmoothCorrel2D, ctrlUseGen,
ctrlSmoothCorrel2D = .TRUE.
ctrlSmoothCorrel2D = .FALSE.
useSmoothCorrel2DinFwdMode = ctrlSmoothCorrel2D
& useSmoothCorrel2DinAdMode .AND. ctrlSmoothCorrel2D
doPackOld = (.NOT.ctrlSmoothCorrel2D).AND.(.NOT.ctrlUseGen)
&' ctrlSmoothCorrel2D = ',ctrlSmoothCorrel2D,
if (ctrlSmoothCorrel2D.AND..NOT.useSmoothCorrel2DinAdMode) then
dodimensionalcost2D=.NOT.ctrlSmoothCorrel2D