diff --git a/fvnlib.f90 b/fvnlib.f90
index e49511b..7df5b1a 100644
--- a/fvnlib.f90
+++ b/fvnlib.f90
@@ -47,6 +47,8 @@ implicit none
 real(kind=8),parameter :: fvn_pi = 3.141592653589793_8
 complex(kind=8),parameter :: fvn_i = (0._8,1._8)
 
+!ajout par CW 29/10/07
+integer :: fvn_status
 
 ! All quadpack routines are private to the module
 private ::  d1mach,dqag,dqag_2d_inner,dqag_2d_outer,dqage,dqage_2d_inner, &