release 4.6.6 (bug fixes with ifort)

gher-uliege · Oct 7, 2014 · 29eadd8 · 29eadd8
2 parents 2cbdf94 + 57763e5
commit 29eadd8
Show file tree

Hide file tree

Showing 394 changed files with 5 additions and 253,819 deletions.
diff --git a/DIVA3D/src/Fortran/Util/dvlogitrange.f b/DIVA3D/src/Fortran/Util/dvlogitrange.f
@@ -72,7 +72,7 @@
          close(10)
       ENDIF
 !
-      RETURN
+!!      RETURN
       END
 
       SUBROUTINE DVDATASHRINK(A,B)

diff --git a/DIVA3D/src/Fortran/Util/rlvardepth.f90 b/DIVA3D/src/Fortran/Util/rlvardepth.f90
@@ -340,7 +340,7 @@ Subroutine UREADC(iu,c8,c4,valexr,iprecr,imaxr,jmaxr,kmaxr,nbmotr)
          write(*,*)' number of values retrieved:', (kl-1)*nbmots+kc-1
          imaxr=0
          return
-         end
+         End subroutine
 
 
 
@@ -458,7 +458,7 @@ Subroutine UWRITC(iu,c8,c4,valex8,ipre8,imaxc,jmaxc,kmaxc,nbmots)
         write(*,*) 'imaxc,jmaxc,kmaxc,iprec,nbmots,valexc'
         write(*,*) imaxc,jmaxc,kmaxc,iprec,nbmots,valexc
          return
-         end
+         End subroutine
 
       subroutine UFILL(c,valexc,imax,jmax,kmax)
 	implicit none
@@ -485,7 +485,7 @@ subroutine UFILL(c,valexc,imax,jmax,kmax)
 !c
        call JM0000(c,valexc,imax,jmax,kmax,work,work2,ic,ic2)
        return
-       end
+       End subroutine
 !c
        subroutine JM0000(c,valexc,imax,jmax,kmax,work,work2,ic,ic2)
 	implicit none
@@ -612,6 +612,6 @@ subroutine JM0000(c,valexc,imax,jmax,kmax,work,work2,ic,ic2)
  99    continue
 
        return
-       end
+       End subroutine
 
 End program rlvardepth
diff --git a/trunk/DIVA3D/divastripped/awkfilter b/trunk/DIVA3D/divastripped/awkfilter
diff --git a/trunk/DIVA3D/divastripped/crossval b/trunk/DIVA3D/divastripped/crossval
diff --git a/trunk/DIVA3D/divastripped/dbdb2diva b/trunk/DIVA3D/divastripped/dbdb2diva