Merge pull request #1 from CDAT/use_flags

Use flags

Src/ezget.F

@@ -111,7 +111,7 @@
 
       integer function applywts(ivar, amask)
 
-      implicit none
+c      implicit none
 #include "usersget"
 #include "cvartbl"
 #include "cdimtbl"
@@ -242,7 +242,7 @@ logical function caseindp(a, b)
 c    blank; then equivalence requires both strings to be null or
 c    completely blank.   
 
-      implicit none
+c      implicit none
       character*(*) a, b
       character*1 c, d
       integer i, j, k, m, n, j1, k1, ii, j2, k2
@@ -350,7 +350,7 @@ subroutine closeget
 
 c      common variables
 
-      implicit none
+c     implicit none
 #include "drsdef.h"
 #include "fcddrs.h"
 
@@ -418,7 +418,7 @@ subroutine closeget
 
       subroutine clrtable
 
-      implicit none
+c     implicit none
 #include "usersget"
 #include "cdimtbl"
 #include "cvartbl"
@@ -532,7 +532,7 @@ subroutine defdim(ivar, idim, name, weight, domain, bdry1,
      +         bdry2, dcycle) 
 
 c ???  check the following include statements
-      implicit none
+c     implicit none
 #include "usersget"
 #include "cvartbl"
 #include "cdimtbl"
@@ -893,7 +893,7 @@ subroutine defdim(ivar, idim, name, weight, domain, bdry1,
       subroutine defdimi(ivar, idim, name, weight, indx1, indx2) 
 
 c ???  check the following include statements
-      implicit none
+c     implicit none
 #include "usersget"
 #include "cvartbl"
 #include "cdimtbl"
@@ -1268,7 +1268,7 @@ subroutine defgeog(ivar, inorout, imaskvar, select)
 
 c ??? check following includes
 c    need: all, maxvars, ishowin, ishowout, igeogin, igeogout, varnam
-      implicit none
+c     implicit none
 #include "usersget"
 #include "cscalars"
 #include "cvartbl"
@@ -1993,7 +1993,7 @@ subroutine defgeog(ivar, inorout, imaskvar, select)
 
       subroutine defmisc(param, type, value)
 
-      implicit none
+c     implicit none
 #include "usersget"
 #include "cscalars"
 
@@ -2315,7 +2315,7 @@ subroutine defmisc(param, type, value)
       subroutine defregrd(ivar, targtype, itarg, method, nlat, alat, 
      +         dellat, nlon, alon, dellon)
 
-      implicit none
+c     implicit none
 #include "usersget"
 #include "cvartbl"
 
@@ -2482,7 +2482,7 @@ subroutine defregrd(ivar, targtype, itarg, method, nlat, alat,
 
       subroutine defvar(ii, varname, filename)
 
-      implicit none
+c     implicit none
 
 c      common variables
 
@@ -2621,7 +2621,7 @@ subroutine defvar(ii, varname, filename)
 
       subroutine defvarex(ivar, varname, vtitle, vsource, filename)
 
-      implicit none
+c     implicit none
 #include "usersget"
 #include "cvartbl"
 
@@ -2682,7 +2682,7 @@ subroutine defvarex(ivar, varname, vtitle, vsource, filename)
 
       subroutine diminfo(ivar, idim, param, info)
 
-      implicit none
+c     implicit none
 #include "usersget"
 #include "cvartbl"
 #include "cdimtbl"
@@ -2929,7 +2929,7 @@ subroutine diminfo(ivar, idim, param, info)
 
       subroutine domain(ivar, ndim, dnames, beg, end)
 
-      implicit none
+c     implicit none
 #include "usersget"
 #include "cvartbl"
 
@@ -3015,7 +3015,7 @@ subroutine domain(ivar, ndim, dnames, beg, end)
 
       subroutine domlimit(ivar, dim, beg, end)
 
-      implicit none
+c     implicit none
 #include "usersget"
 #include "cvartbl"
 #include "cdimtbl"
@@ -3085,7 +3085,7 @@ subroutine domlimit(ivar, dim, beg, end)
       integer function doregrid(ivar, amaskin, arrayin, amask, array)
 
 
-      implicit none
+c     implicit none
 #include "usersget"
 #include "cscalars"
 #include "cvartbl"
@@ -3598,7 +3598,7 @@ integer function doregrid(ivar, amaskin, arrayin, amask, array)
 
       subroutine errcheck(sub, from, iadd)
 
-      implicit none
+c     implicit none
 #include "cscalars"
 
       integer iadd
@@ -3685,7 +3685,7 @@ integer function genwts(dname, istore, fuzzy, cwtloc, cdomloc, jj,
 
 c      common variables
 
-      implicit none
+c     implicit none
 #include "cscalars"
 #include "cdomain"
 
@@ -4192,7 +4192,7 @@ subroutine getcoord(ivar, idim, coords)
 c     
 c ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 
-      implicit none
+c     implicit none
 #include "usersget"
 #include "cvartbl"
 #include "cdimtbl"   
@@ -4323,7 +4323,7 @@ subroutine getcoord(ivar, idim, coords)
       subroutine getdata(ivar, ndim1, ndim2, ndim3, ndim4, 
      +                        len1,  len2,  len3,  len4, amask, array)
 
-      implicit none
+c     implicit none
 #include "usersget"
 #include "cvartbl"  
 #include "cdomain"  
@@ -4583,7 +4583,7 @@ integer function getdimen(idim, domainc, cycle, ibegbdy, iendbdy,
 
 c      common variables
 
-      implicit none
+c     implicit none
 #include "drsdef.h"
 #include "fcddrs.h"
 
@@ -5112,7 +5112,7 @@ subroutine getdimwt(ivar, idim, wts)
 c     
 c ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 
-      implicit none
+c     implicit none
 #include "usersget"
 #include "cvartbl"
 #include "cdimtbl"   
@@ -5195,7 +5195,7 @@ subroutine getedges(ivar, idim, edges)
 c     
 c ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 
-      implicit none
+c     implicit none
 #include "usersget"
 #include "cvartbl"
 #include "cdimtbl"   
@@ -5283,7 +5283,7 @@ subroutine getfield(ivar, array)
 
 c      common variables
 
-      implicit none
+c     implicit none
 #include "usersget"
 #include "cvartbl"
 #include "cdomain"
@@ -5383,7 +5383,7 @@ integer function getfld(ivar, array)
 
 c      common variables
 
-      implicit none
+c     implicit none
 #include "drsdef.h"
 #include "fcddrs.h"
 
@@ -5986,7 +5986,7 @@ integer function getfld(ivar, array)
       subroutine getgeog(ivar, ndim1, ndim2, ndim3, ndim4, 
      +                        len1, len2, len3, len4, amask, select)
 
-      implicit none
+c     implicit none
 #include "usersget"
 #include "cvartbl"  
 #include "cdomain"  
@@ -6256,7 +6256,7 @@ subroutine getgeog(ivar, ndim1, ndim2, ndim3, ndim4,
 
       subroutine getnogap(ivar, len, amask, array)
 
-      implicit none
+c     implicit none
 #include "cscalars"
 
       integer ivar, len, lendatal
@@ -6310,7 +6310,7 @@ subroutine getvdata(ivar, amask, array)
 
 c      common variables
 
-      implicit none
+c     implicit none
 #include "usersget"
 #include "cscalars"
 #include "cvartbl"
@@ -6841,7 +6841,7 @@ subroutine getvdata(ivar, amask, array)
 
       subroutine initget()
 
-      implicit none
+c     implicit none
 #include "drsdef.h"
 #include "fcddrs.h"
 
@@ -6997,7 +6997,7 @@ subroutine initget()
 
       subroutine lendims(ivar, i1, i2, i3, i4, ii)
 
-      implicit none
+c     implicit none
 #include "usersget"
 #include "cvartbl"
 #include "cdimtbl"
@@ -7103,7 +7103,7 @@ subroutine maparea(nloni, nlono, nlati, nlato,
 c  *********************************************************************
 
 
-      implicit none
+c     implicit none
       integer nloni, nlono, nlati, nlato, londx(nlono), lonpt(*), 
      &       latdx(nlato), latpt(*) 
       real  bnin(nlati), bnout(nlato), bsin(nlati), bsout(nlato)
@@ -7306,7 +7306,7 @@ integer function mkdimtbl (mxdmkeep, istore, dname, lendim, idlen,
 
 c      common variables
 
-      implicit none
+c     implicit none
 #include "usersget"
 #include "cdimtbl"
 
@@ -7488,7 +7488,7 @@ integer function mkdimtbl (mxdmkeep, istore, dname, lendim, idlen,
       integer function opendrs(ivar, ierrcntl, idicun)
 
 
-      implicit none
+c     implicit none
 #include "drsdef.h"
 #include "fcddrs.h"
 
@@ -7738,7 +7738,7 @@ subroutine rgdarea(ilong, ilat, itim1, itim2,
 c  *********************************************************************
 c
 
-      implicit none
+c     implicit none
       pointer (p1, accum), (p2, wtmsk)
       integer  nloni, nlono, nlati, nlato
       integer londx(nlono), lonpt(*), latdx(nlato), latpt(*)
@@ -8014,7 +8014,7 @@ subroutine rgdarea(ilong, ilat, itim1, itim2,
 
       subroutine shape(ivar, idim1, idim2, idim3, idim4, lentot)
 
-      implicit none
+c     implicit none
 #include "cscalars" 
 
       integer ivar, idim1, idim2, idim3, idim4, lentot, lendatal, 
@@ -8064,7 +8064,7 @@ subroutine shape(ivar, idim1, idim2, idim3, idim4, lentot)
 
       integer function univunit(namedim)
 
-      implicit none
+c     implicit none
 #include "cscalars"
 
       character*16 namedim
@@ -8109,7 +8109,7 @@ integer function univunit(namedim)
 
       subroutine varinfo(ivar, param, info)
 
-      implicit none
+c     implicit none
 #include "usersget"
 #include "cvartbl"
 #include "cdimtbl"
@@ -8270,7 +8270,7 @@ integer function xgeog(ivar, igeog, ishowd, gmask)
 
 c      common variables
 
-      implicit none
+c     implicit none
 #include "drsdef.h"
 #include "fcddrs.h"
 
@@ -8772,7 +8772,7 @@ integer function xregion (ishowd, vartyped, varnaml, jj, geogmask)
 
 c      common variables
 
-      implicit none
+c     implicit none
 #include "cscalars"
 
       integer ishowd, jj

bsd-3-clause.txt

@@ -0,0 +1,29 @@
+BSD 3-Clause License
+
+Copyright (c) 2018, Lawrence Livermore National Security, LLC
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+* Redistributions of source code must retain the above copyright notice, this
+  list of conditions and the following disclaimer.
+
+* Redistributions in binary form must reproduce the above copyright notice,
+  this list of conditions and the following disclaimer in the documentation
+  and/or other materials provided with the distribution.
+
+* Neither the name of the copyright holder nor the names of its
+  contributors may be used to endorse or promote products derived from
+  this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.