& ctrlSmoothCorrel3D,
logical ctrlSmoothCorrel2D, ctrlSmoothCorrel3D
IF ( .NOT.ctrlSmoothCorrel3D ) THEN
IF ( ctrlSmoothCorrel3D ) THEN
& doInitXX, ctrlSmoothCorrel3D, ctrlSmoothCorrel2D, ctrlUseGen,
ctrlSmoothCorrel3D = .TRUE.
ctrlSmoothCorrel3D = .FALSE.
doPackOld = (.NOT.ctrlSmoothCorrel3D).AND.(.NOT.ctrlUseGen)
&' ctrlSmoothCorrel3D = ',ctrlSmoothCorrel3D,
dodimensionalcost3D=.NOT.ctrlSmoothCorrel3D