logical function HasKPoints() IF (NKPS > 1) THEN HasKPoints = .TRUE. ELSE HasKPoints = .FALSE. end if end function HasKPoints