Changeset 22035

Timestamp:

09/05/17 08:36:45 (8 years ago)

Author:

bdef

Message:

BUG:fixing compilation bugs

Location:

issm/trunk-jpl/src/c/modules/FourierLoveCorex

Files:

• love_numbers.f90 (modified) (3 diffs)
• lovenb_sub.f90 (modified) (1 diff)

issm/trunk-jpl/src/c/modules/FourierLoveCorex/love_numbers.f90

@@ -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 +17 @@
  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 +55 @@
  !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

issm/trunk-jpl/src/c/modules/FourierLoveCorex/lovenb_sub.f90

@@ -600 +600 @@
  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)