From fed153e513f0e96b33f7e51049e87378e75eeb9f Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Wed, 14 Jun 2017 01:11:26 +0200
Subject: [PATCH] New IRPF90

---
 src/AO/ao_axis.irp.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/AO/ao_axis.irp.f b/src/AO/ao_axis.irp.f
index 9cfde0f..e46cbf2 100644
--- a/src/AO/ao_axis.irp.f
+++ b/src/AO/ao_axis.irp.f
@@ -45,7 +45,7 @@ subroutine pow_l(r,a,x1,x2,x3)
      x3 = 0.
      return
   end select
-end function
+end
 
 
  BEGIN_PROVIDER [ real, ao_axis_block, (ao_block_num_8) ]