Revert change at observation init. Fixed test error

Author: adrianarce-elemwave

src_main_pub/observation.F90

@@ -699,8 +699,8 @@ subroutine InitObservation(sgg, media, tag_numbers, &
     allocate (InvEps(0:sgg%NumMedia), InvMu(0:sgg%NumMedia))
 
     incident = .false.
-    InvEps(1:sgg%NumMedia) = 1.0_RKIND/(Eps0*sgg%Med(1:sgg%NumMedia)%Epr)
-    InvMu(1:sgg%NumMedia) = 1.0_RKIND/(Mu0*sgg%Med(1:sgg%NumMedia)%Mur)
+    InvEps(0:sgg%NumMedia) = 1.0_RKIND/(Eps0*sgg%Med(0:sgg%NumMedia)%Epr)
+    InvMu(0:sgg%NumMedia) = 1.0_RKIND/(Mu0*sgg%Med(0:sgg%NumMedia)%Mur)
 
     allocate (output(1:sgg%NumberRequest))
     output(1:sgg%NumberRequest)%Trancos = -1

test/observation/observation_testingTools.F90

@@ -212,7 +212,7 @@ function create_base_sgg() result(sgg)
       type(SGGFDTDINFO) :: sgg
 
       sgg%NumMedia = 3
-      allocate(sgg%Med(1:sgg%NumMedia))
+      allocate(sgg%Med(0:sgg%NumMedia))
       sgg%Med = create_basic_media()
       sgg%NumberRequest = 1
       sgg%dt = 0.1_RKIND_tiempo