git-svn-id: https://lxsd.femto-st.fr/svn/fvn@40 b657c933-2333-4658-acf2-d3c7c2708721

daniau
1 parent 80a3b2e0a3
Showing 1 changed file with 2 additions and 0 deletions Side-by-side Diff
fvnlib.f90
@@ -47,6 +47,8 @@
 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, &
...	...	@@ -47,6 +47,8 @@
47	47	real(kind=8),parameter :: fvn_pi = 3.141592653589793_8
48	48	complex(kind=8),parameter :: fvn_i = (0._8,1._8)
49	49
	50	+!ajout par CW 29/10/07
	51	+integer :: fvn_status
50	52
51	53	! All quadpack routines are private to the module
52	54	private :: d1mach,dqag,dqag_2d_inner,dqag_2d_outer,dqage,dqage_2d_inner, &