anchor.diff:        ihms_prev=-999
         do iradar=1,2
            istart_sweep(iradar)=0
  -         rota_prev(iradar)=-999.      
  +         rota_prev(iradar)=-999.
            nb_ray(iradar)=0
            stilt(iradar)=0.
            stilt2(iradar)=0.
  
positive.code:             print *,' '
  c
  c******************************************************************
  c**** NORMALIZATION OF THE MATRICES AND VECTORS 
  c**** FOR DZ_surf, VDOP_surf et DVDOP_insitu
  c**** BY THE SUM OF THE POSITIVE VALUES OF THE OBSERVED ERRORS
  c**** THEN BUILD A UNIQUE MATRICE AND VECTOR BY SUMMING 
  c******************************************************************
  c
              print *,' '
              print *,' NORMALIZATION OF THE MATRICES AND VECTORS'
              print *,' SumPosVal_DZsurf,VDOPsurf,DVDOPinsitu:'
       &             ,swadzsurf_tot,swavsurf_tot,swadvinsitu_tot
       &   
              itest_xmat=0
              do i=1,nvar
                 vect(i)=0.
  
negative.code:  	        swdzmsurf_tot=swdzmsurf_tot
       &                       +wghtsurf_ray*d_hsurf
  	        swdz2surf_tot=swdz2surf_tot
       &                       +wghtsurf_ray*d_hsurf*d_hsurf
                  swadzsurf_tot=swadzsurf_tot
       &                        +wghtsurf_ray*abs(d_hsurf)
  c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  