From b1f1843e01814447b2335343e5f14b52d9f028f8 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Fri, 19 Mar 2021 23:16:30 +0100
Subject: [PATCH] Fixed bug in polynomials

---
 src/qmckl_ao.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/qmckl_ao.org b/src/qmckl_ao.org
index 40e2823..6659eef 100644
--- a/src/qmckl_ao.org
+++ b/src/qmckl_ao.org
@@ -320,7 +320,7 @@ integer function qmckl_ao_polynomial_vgl_f(context, X, R, lmax, n, L, ldl, VGL,
      return
   endif
 
-  if (lmax <= 0) then
+  if (lmax < 0) then
      info = QMCKL_INVALID_ARG_4
      return
   endif