Index: /issm/trunk-jpl/src/c/modules/FourierLoveCorex/love_numbers.f90
===================================================================
--- /issm/trunk-jpl/src/c/modules/FourierLoveCorex/love_numbers.f90	(revision 22034)
+++ /issm/trunk-jpl/src/c/modules/FourierLoveCorex/love_numbers.f90	(revision 22035)
@@ -7,4 +7,7 @@
  
  integer :: source_type, fr, i, IERR
+ integer :: dnfreq, ddegmax, ddegmin
+ integer :: dnlayer
+
  double precision :: T,cst, fluid_tscale,g
  double precision, dimension(dnfreq,ddegmax+1) :: hsr,hsi,lsr,lsi,ksr,ksi
@@ -14,6 +17,4 @@
  double precision   :: dmu0,dgo0,dr0
  logical :: dallow_layer_del, ddisplay
- integer :: dnfreq, ddegmax, ddegmin
- integer :: dnlayer
  double precision, dimension(dnlayer) :: droc,dlac,dmuc,dvic,dvic2,dmuc2 
  double precision, dimension(dnlayer+1) :: dradius 
@@ -54,5 +55,6 @@
  !frequencies=1E-5/cst*2*pi
 
-	hs(:,:)=complex(0.d0,0.d0)
+!	hs(:,:)=complex(0.d0,0.d0)
+	hs(:,:)=cmplx(0.d0,0.d0)
 	ks=hs
 	ls=hs
Index: /issm/trunk-jpl/src/c/modules/FourierLoveCorex/lovenb_sub.f90
===================================================================
--- /issm/trunk-jpl/src/c/modules/FourierLoveCorex/lovenb_sub.f90	(revision 22034)
+++ /issm/trunk-jpl/src/c/modules/FourierLoveCorex/lovenb_sub.f90	(revision 22035)
@@ -600,5 +600,5 @@
  306 format(a4,i2,3x,'n=',i5,5x,'h=',d14.7,5x,'l=',d14.7,5x,'k=',d14.7)
  302 format(i5,5x,f14.10,5x,f14.10,5x,f14.10)
- 303 format(i5,5x,e14.10,5x,e14.10,5x,e14.10,5x,e14.10)
+ 303 format(i5,5x,f14.10,5x,f14.10,5x,f14.10,5x,f14.10)
  304 format(i5,5x,d20.10,5x,d20.10,5x,d20.10)