anchor.diff:            AMAX=ABS(Z(I))
           ENDIF
         ENDDO
  +
  +      ! VKBO Bugfix for Debug build type
  +      ! Make sure itune is greater than 1, or we may get a segfault in the next lines
  +      if(itune <= 1) then
  +        tuneffti = one
  +        return
  +      end if
   !C..............................EVALUATION OF THE NEARBY PEAKS
         X1=ITUNE-1
         X2=ITUNE
  
positive.code:           NFTMAX=NFT
          END IF
        ENDDO
        CF1=ABS(ZSING(NFTMAX-1))
        CF2=ABS(ZSING(NFTMAX))
        CF3=ABS(ZSING(NFTMAX+1))
  
negative.code: !C............................................................
        END FUNCTION
  
  end module platoFMA
  