text:
Davis Bee Sanctuary
Founded in Spring 2011
Located west of the Domes/south of the Orchard Park Apartments

Join the Davis Bee Collective
http://www.youtube.com/watch?vr4_HucqqWQU Video about intention behind the Davis Bee Sanctuary!

https://plus.google.com/photos/100462798202830764008/albums/6023914893348925857?authkeyCP76jrkg6Ozfg RECENT PICTURES OF THE ABUNDANT FLOWERS, BEES, and COLORS OF THE DAVIS BEE SANCTUARY, JUNE 2014!!!

http://beelovepermaculture.org/beesolutions/ Recent Reflections by Permaculture Designer and founder of Davis Bee Sanctuary

 This is Swarm Season, please call 5304007032 if you spot a swarm, would like a swarm of bees, or would like to get connected with the Davis Bee Sanctuary community.

Locally Sourced Honeybees (rescued swarms from Davis)
WoodOnly TopBar Hives
NoTreatment Beekeeping (No Sugar, Chemicals, or Essential Oil used)
Allowing for Natural Selection Leading to Adapted Survivor Bees
Solar Beeswax Melter
Habitat, Food, and Water for 70 different native bee species in Davis
Permaculture Demonstration Garden
WaterSaving Hugelkultur Garden Beds
Healing Herbs for Medicine Making and SoilBuilding
Workshops and Garden Parties Organized by the Collective
Care of the Earth...Care of People...Redistribution of Surplus

The Davis Bee Sanctuary is a solutiona solution to the problems faced by the bees, and ultimately faced by ourselves. It was conceived by members of the Davis Bee Collective and Davis Bee Charmers in 2011 with the intention of fostering a community of people willing to create a more harmonious relationship with our friends, the bees (honeybees and 60 other Davis bee species!).

For so many years100 million in fact!the honeybeeing thrived on its own, building its beautiful hexagonally patterned homes in trees for the most part while collecting pollen, nectar, propolis, and water, while performing an astonishing service to the diversity of life on this planet through their pollination of flowering plants. It is true our very lives depend on beekeeping  about a third of the food we eat (most vegetables, nuts, and fruits, as well as all the dairythink alfalfa!) would not be available without the services of the honeybee.

In the last 100 years, in conjunction with the rise of industrial agriculture, the honeybee has been treated as a honeymakingandmonoculturefarmpollinating machine, to the point that one person will manage 60,000 hives, trucking them over several thousand miles per year to farms with only one type of nectar, robbing them of honey and feeding them sugar water, dousing them with more and more treatments such as miticides to control the varroa mite (in effect creating supermites), and queen breeding for docile traits to the point there is little genetic diversity left  Rudolf Steiner predicted in 1923 that if humanity continued to cultivate the honeybees by artificial means, we would, within eighty years, witness the mass disappearance of the bees. His prediction has come true. In 2006, Colony Collapse Disorder, which continues to this day to wipe out colonies all over the world, has awakened the consciousness of people all over the world to rethink our relationship with the bees.

As demonstrated by the film http://www.queenofthesun.com/, Queen of the Sun, there are natural and biodynamic beekeepers all over the world creating bee sanctuaries and helping us to heal our relationship with the bees!  Be part of the solution and get involved with your local beekeeping group; for those in Davis, that would be the Davis Bee Collective!

The Bee Sanctuary provides a place for members of the Davis Bee Collective to keep bees safely using no chemicals or treatments.  Inspired by Serge Labesque in Sacramento, the following principles provide an easy basis for keeping bees naturally:

 making the bee species an overarching priority over any single hive
 not to interfere with the process of natural selection
 using bees from the local population

It includes a large permaculture designed labyrinth shaped, nectar/pollen providing flower garden to demonstrate the best plants to help our pollinator friends.  It provides habitat for some of the 70 native bee species that call Davis home.  Heres a more thorough list of what you can expect to find there:
      Several observation (with windows you can look into) top bar honeybee hives managed naturally, treatment free by members of the Davis Bee Collective
      Native bee habitat for some of Davis 70 native bee species
      Solar Wax Melter for purifying beeswax from hives for use in making healing medicine balms and candles
      Shared Beekeeping equipment and materials for maintaining the gardens and site
      CA native flower garden with yearround blooming times to provide bees with nectar and pollen throughout the year
      Demonstration of permaculture gardening techniques such as http://www.richsoil.com/hugelkultur/, hugelkultur (for irrigation free gardening!)
      Medicinal herbs throughout
      Shady rest areas for the hot summer days
      Biointensive Compost piles
      Curvy labyrinth walkways
      Peach, Almond, Quince trees, raspberry and blackberry bushes

To those sensitive to bees and for everyones reference, please note we have a First Aid box mounted on a tree at the entrance to the apiary with an antihistamine packet (to help with inflammation should you ever get stung).  Please keep that in mind and share with anyone you see in that area. People allergic to bee venom should carry an epipen at all times. We have designed the gardens to have flowering shrubs and perennials that will direct the bees up and over...these plants are still getting established.

Though the Bee Sanctuary bees are friendly, here are some suggestions should you not want to attract bees to you:
      Wear lighter colored clothing
      Avoid wearing perfumes or strong scents,
      Never eat bananas around bees
      Calm your mind with mindful breathing
      If you are opening up a bee hive, make sure your awareness is with the bees  they are amazing!

THE GRAND OPENING CEREMONY WAS HELD SATURDAY MARCH 31st with over a hundred attendees!,...please join the https://groups.google.com/forum/?hlen&fromgroups#!forum/davis_bee_collective,Davis Bee Collective google group to stay up to date on the latest workshops and parties and other bee related events. Many newspapers in the area and several area radio shows covered the opening ceremony.
http://www.theaggie.org/2012/04/04/davisbeesanctuarycelebratesgrandopening/,CA Aggie article
http://ucanr.org/blogs/blogcore/postdetail.cfm?postnum7152, bug blog article

Resources shared at this apiary include beekeeping equipment, beekeeping suits, extractors, jars, books, and smoker materials, so the usually expensive hobby of keeping bees can be affordable to all. In January 2011, members of the Davis Bee Collective and Davis Bee Charmers hosted a workshop to build top bar hives from scratch...the cost was under $40 for a hive...other materials needed to maintain the hives is shared and free to use at the apiary. Many of these hives are occupied by bees at the Bee Sanctuary.

The Bee Sanctuary provides an ideal opportunity for students and Davis residents to learn how to keep bees...no prior experience is necessary, just a passion to learn.  Every week through the spring and summer, there are Sunday 114pm workparties (or other days announced to the https://groups.google.com/forum/?hlen&fromgroups#!forum/davis_bee_collective,Davis Bee Collective google group) to tend to the apiary and the flower garden.  People who keep hives there take care of the apiary.  If you are a student graduating and leaving town, we can make sure to find someone new to adopt the hive...this is a place of learning and many are interested to learn the craft.

See the evolution of the Davis Bee Sanctuary:

Spring 2012

Summer 2012

Fall 2013

Spring 2014
https://plus.google.com/photos/100462798202830764008/albums/6023914893348925857?authkeyCP76jrkg6Ozfg RECENT PICTURES OF THE ABUNDANT FLOWERS, BEES, and COLORS OF THE DAVIS BEE SANCTUARY, JUNE 2014!!!


!---------------------------------------------------!
! Copyright (c) 2016 Shunsuke A. Sato               !
! Released under the MIT license                    !
! https://opensource.org/licenses/mit-license.php   !
!---------------------------------------------------!
!-------10--------20--------30--------40--------50--------60--------70--------80--------90
subroutine hpsi
  use global_variables
  implicit none
! finite difference
  real(dp),parameter :: cN0=-205d0/72d0,cN1=8d0/5d0
  real(dp),parameter :: cN2=-1d0/5d0,cN3=8d0/315d0
  real(dp),parameter :: cN4=-1d0/560d0
  integer :: ix,iy
  real(dp) :: c0,c1,c2,c3,c4
  real(dp) :: c0e,c1e,c2e,c3e,c4e,c0n,c1n,c2n,c3n,c4n
! nine-points formula
  c0e=-0.5d0*cN0/(dx**2)/mu_e
  c1e=-0.5d0*cN1/(dx**2)/mu_e
  c2e=-0.5d0*cN2/(dx**2)/mu_e
  c3e=-0.5d0*cN3/(dx**2)/mu_e
  c4e=-0.5d0*cN4/(dx**2)/mu_e

  c0n=-0.5d0*cN0/(dr**2)/mu_n
  c1n=-0.5d0*cN1/(dr**2)/mu_n
  c2n=-0.5d0*cN2/(dr**2)/mu_n
  c3n=-0.5d0*cN3/(dr**2)/mu_n
  c4n=-0.5d0*cN4/(dr**2)/mu_n

  twfn_e_b(:)=0d0
  twfn_n_b(:)=0d0
!  tmp_wfn_b(0:Nx,0:NR) = tmp_wfn(0:Nx,0:NR)
  twfn_e_b(0:Nx)= twfn_e(0:Nx)
!  twfn_n_b(0:NR)= twfn_n(0:NR)
!  twfn_n_b(-1)= twfn_n(1)
!  twfn_n_b(-2)= twfn_n(2)
!  twfn_n_b(-3)= twfn_n(3)
!  twfn_n_b(-4)= twfn_n(4)

!  do iy=0,NR
!    hwfn_n(iy) = c0n*twfn_n_b(iy) &
!      + c1n*( twfn_n_b(iy+1) + twfn_n_b(iy-1) ) &
!      + c2n*( twfn_n_b(iy+2) + twfn_n_b(iy-2) ) &
!      + c3n*( twfn_n_b(iy+3) + twfn_n_b(iy-3) ) &
!      + c4n*( twfn_n_b(iy+4) + twfn_n_b(iy-4) )
!  end do

  do ix=0,Nx
    hwfn_e(ix) = c0e*twfn_e_b(ix) &
      + c1e*( twfn_e_b(ix+1) + twfn_e_b(ix-1) ) &
      + c2e*( twfn_e_b(ix+2) + twfn_e_b(ix-2) ) &
      + c3e*( twfn_e_b(ix+3) + twfn_e_b(ix-3) ) &
      + c4e*( twfn_e_b(ix+4) + twfn_e_b(ix-4) )

  end do

!  hwfn_n = hwfn_n + v_n*twfn_n
  hwfn_e = hwfn_e + v_e*twfn_e

  return
end subroutine hpsi


text:
Beloved Pet Mobile Vet provides housecall veterinary hospitals veterinary services to the greater Sacramento area.  The focus of this practice is on inhome hospice care for domestic animals.  The goal is to maximize the amount of quality time that a pets pet has left, so the animal can enjoy as much time as possible with its owner. Dr Hendrix also provide inhome euthanasia services, extending to burial and private cremation, with urns and pawprints available.  She no longer provides regular veterinary care or vaccines.

Dr. Hendrix, an emergency doctor by trade, has 23 years of experience in the veterinary field, and has been living in Davis since 1991. She is also a member of the International Association of Animal Hospice and Palliative Care, an organization dedicated to promoting hospice care for pets and is on the task force for the Second annual Pet Hospice Conference sponsored by IAAHPC.

It was founded by Dr. Lynn Hendrix and Dr. Margaret Hunt, both graduates of the UC Davis School of Veterinary Medicine; however, Dr Margaret Hunt has left Beloved Pet Mobile Vet.

  See website for current pricing or call.

 Media

  http://www.davisenterprise.com/localnews/localveterinariansfocusonendoflifecare/ Local veterinarians focus on endoflife care

20120326 19:47:26 nbsp We are forever grateful to Dr. Lynn Hendrix.  She responded almost immediately to our call and came to our home to diagnose our dog near the end of his long and happy life.  He trusted her and was very comfortable.  She gently but realistically discussed his issues and made some recommendations.  We were not ready to humanely euthanize him that day but chose to spend a bit of quality time saying goodbye to our beloved pet of many years.  When the time was right, she came to our home and so gently and calmly fostered his trust again.  He laid on his bed and she gave him a shot that allowed him to slowly relax.  We petted him and spoke to him.  When we were ready, we gave the signal for the final injection that stopped his heart.  Dr. Hendrix seems to know the heart and soul of the pet and how they intersect with the heart and soul of the owners.  Her house call saved our pet from a frightening and painful trip to the veterinarians office.  We were allowed to comfort him in the comfort of his own home.  We never had to see him panting and fearful.  She also took him away for us so we could focus on sending his soul off to wherever it is that dogs souls go.  We felt Dr. Hendrix knew exactly what to do and when.  She is a gentle and understanding person.  Her diagnosis was correct and left us with no questions in our mind.  Making the decision to end a life is a gutwrenching, grueling one, but so is watching your beloved pet suffer when he does not have to.  We recommend Dr. Hendrix without reservation to anyone needing endoflife care or humane euthanasia for their pet.  She is sensitive to all issues surrounding pets, their families, and this very tender time. Users/MrsC

20120403 16:08:32 nbsp Mrs C,
I am so honored by your review, thank you for your kind words.  I am honored to know all of my clients and their beloved pets during the final chapter of their lives.
Dr Lynn Hendrix Users/LynnHendrix

ext: f

max_stars_repo_name: voflo/Search

max_issues_repo_name: voflo/Search

max_forks_repo_name: voflo/Search


text:
less_toxic(ff1,cc1).
less_toxic(ii1,dd1).
less_toxic(ii1,aa1).
less_toxic(g1,h1).
less_toxic(y1,jj1).
less_toxic(kk1,cc1).
less_toxic(o1,b1).
less_toxic(ii1,cc1).
less_toxic(t1,d1).
less_toxic(r1,w1).
less_toxic(cc1,h1).
less_toxic(ii1,d1).
less_toxic(ee1,h1).
less_toxic(k1,e1).
less_toxic(s1,z1).
less_toxic(ll1,jj1).
less_toxic(h1,d1).
less_toxic(w1,d1).
less_toxic(k1,b1).
less_toxic(s1,e1).
less_toxic(b1,dd1).
less_toxic(ee1,i1).
less_toxic(ee1,jj1).
less_toxic(ee1,aa1).
less_toxic(jj1,f1).
less_toxic(v1,c1).
less_toxic(p1,f1).
less_toxic(bb1,f1).
less_toxic(x1,cc1).
less_toxic(kk1,b1).
less_toxic(z1,c1).
less_toxic(ii1,e1).
less_toxic(hh1,v1).
less_toxic(w1,jj1).
less_toxic(bb1,dd1).
less_toxic(x1,e1).
less_toxic(b1,p1).
less_toxic(x1,h1).
less_toxic(y1,f1).
less_toxic(j1,aa1).
less_toxic(f1,aa1).
less_toxic(cc1,ff1).
less_toxic(c1,u1).

max_stars_repo_name: manoelfranca/cilppp

max_issues_repo_name: manoelfranca/cilppp

max_forks_repo_name: manoelfranca/cilppp


text:
	SUBROUTINE HSCINT  ( iret )
C************************************************************************
C* HSCINT - GIF 							*
C*									*
C* This subroutine initializes default set of colors on a device.	*
C* Each device has its own default colors.  The colors may be set	*
C* by calling the device subroutine DSNAME to set each color by		*
C* name.								*
C*									*
C* HSCINT  ( IRET )							*
C*									*
C* Output parameters:							*
C*	IRET		INTEGER		Return code			*
C**									*
C* Log:									*
C* J. Nielsen-G/TAMU	12/96	Modified for GIF driver			*
C************************************************************************
	CHARACTER	coltbl*20
C-----------------------------------------------------------------------
C
C*	Set the colors from the default color table.
C
	coltbl = ' '
	CALL HSCTBL ( coltbl, iret )
C*
	RETURN
	END

max_stars_repo_name: oxelson/gempak

max_issues_repo_name: oxelson/gempak

max_forks_repo_name: oxelson/gempak


text:
!==========================================================================
elemental function gsw_deltasa_from_sp (sp, p, long, lat)
!==========================================================================
!
! Calculates Absolute Salinity Anomaly, deltaSA, from Practical Salinity, SP.
!
! sp     : Practical Salinity                              [unitless]
! p      : sea pressure                                    [dbar]
! long   : longitude                                       [deg E]
! lat    : latitude                                        [deg N]
!
! gsw_deltasa_from_sp : Absolute Salinty Anomaly           [g/kg]
!--------------------------------------------------------------------------

use gsw_mod_toolbox, only : gsw_sa_from_sp, gsw_sr_from_sp

use gsw_mod_error_functions, only : gsw_error_code, gsw_error_limit

use gsw_mod_kinds

implicit none

real (r8), intent(in) :: sp, p, long, lat

real (r8) :: gsw_deltasa_from_sp

character (*), parameter :: func_name = "gsw_deltasa_from_sp"

gsw_deltasa_from_sp = gsw_sa_from_sp(sp,p,long,lat) - gsw_sr_from_sp(sp)

if (gsw_deltasa_from_sp.gt.gsw_error_limit) &
	gsw_deltasa_from_sp = gsw_error_code(1,func_name)

return
end function

!--------------------------------------------------------------------------

max_stars_repo_name: minsukji/ci-debug

max_issues_repo_name: minsukji/ci-debug

max_forks_repo_name: minsukji/ci-debug


text:
      subroutine depeqs(xu,cdep,a,b,phi,theta,x,depeq)
c
c
c     + + + PURPOSE + + +
c     Solves the deposition equation.
c
c     Called from subroutine DEPOS.
c     Author(s): G. Foster, M. Nearing
c     Reference in User Guide:
c
c     Changes: 1) Put the second parameter at the END of the list,
c                 since it gets MODIFIED.  Made the analogous changes
c                 in DEPOS which calles it.
c              2) Made this FUNCTION DEPEQ into a SUBROUTINE DEPEQS,
c                 since it modifies one of its arguments, and accesses
c                 common blocks.
c              3) PROUTE1.INC de-referenced, since MXPLAN is never used.
c
c     Version: This module recoded from WEPP version 90.92.
c     Date recoded: 01/11/91.
c     Recoded by: Charles R. Meyer.
c
c     + + + KEYWORDS + + +
c
c     + + + ARGUMENT DECLARATIONS + + +
      real xu, cdep, a, b, phi, theta, x, depeq
c
c     + + + ARGUMENT DEFINITIONS + + +
c     xu     - nondimensional distance on an OFE where current
c              deposition region begins
c     cdep   -
c     a      - shear stress coefficient for current slope section
c     b      - shear stress coefficient for current slope section
c     phi    - nondimensional deposition parameter for current OFE
c     theta  - nondimensional interrill detachment parameter for
c              current OFE
c     x      -
c     depeq  -
c
c     + + + COMMON BLOCKS + + +
      include 'cends1.inc'
c       read: ktrato
      include 'cinfco1.inc'
c       read: qostar
c
c     + + + LOCAL VARIABLES + + +
      real ratio, expon, tmpvr1
c     ratio  - temp variable to store parts of the depeq equation
c     expon  - temp variable to store parts of the depeq equation
c
c     + + + SUBROUTINES CALLED + + +
c     undflo
c
c     + + + END SPECIFICATIONS + + +
c
      if (abs(qostar+x).lt.10e-8) x = -qostar - 0.000001
c
      ratio = (xu+qostar) / (x+qostar)
c     if(ratio.gt.1.0) ratio=1.0
      if (qostar.ge.0.0.and.ratio.gt.1.0) ratio = 1.0
c
      expon = 1.0 + phi
      call undflo(ratio,expon)
c
      tmpvr1 = 2.0 * a * ktrato
      depeq = (tmpvr1*phi*(x+qostar)/(2.0+phi)) + (phi/(1.0+phi)) * (b*
     1    ktrato-theta-(tmpvr1*qostar)) + cdep * ratio ** expon
c
      return
      end

ext: for

max_stars_repo_name: jarad/dep

max_issues_repo_name: jarad/dep

max_forks_repo_name: akrherz/idep


text:
http://c1.acimages.myspacecdn.com/images02/29/l_ede61b74ea4d43a6b637d19bb759883c.jpg

http://www.myspace.com/attmaydubstep
http://www.myspace.com/303sumatra
http://www.303sumatra.com

303 SUMATRA
Attmay & Jdubz(916)

http://a685.acimages.myspacecdn.com/images01/17/m_d24466bdbb632a6d66002df8d47805dc.gif
NO DISCO EP featuring CANTINA & ICE OF TIBET + REMIXES by
Djunya, The Milkman, Clobber, The Foot Soldiers
OUT MAY 12th 08 on Insectmind

NO DISCO EP featuring DJUNYA

303 Sumatra enters the Dubstep world with a resounding boom, releasing two solid tunes on the No Disco EP, which also features a remix by DJUNYA.

On May 12th No Disco EP, a new 6 track release from 303 Sumatra will go live. This EP features the tracks Ice of Tibet, and Cantina, as well as four additional remixes from the likes of DJUNYA, Clobber, The Foot Soldiers, and The Milkman.

Each remix brings a new dimension the already deep originals. DJUNYA, Clobber, and The Foot Soldiers keep the sound on the smooth melodic tip. The Milkmans remix steps outside the borders of the original tune, showcasing his clear and evident IDM roots.

Soon to be featured on several radio shows as well as DJ Swats upcoming tour these tunes are not to be missed. This will be Insectminds third release this year and will be available at all major online music retailers, including iTunes, Beatport, and Juno.

http://c2.acimages.myspacecdn.com/images02/64/m_9c4aca1a12ff40bbb7a17a8fff716fd5.jpg
Contact matt@303sumatra.com for booking.

20090111 12:05:33 nbsp Welcome to the Wiki. Is 303 Sumatra listed on wiki:sacramento:Front Page Sacramento Wiki? Users/JasonAller


      subroutine overbank_read

      use hydrograph_module
      use input_file_module
      use maximum_data_module
      implicit none

      character (len=80) :: titldum   !           |title of file
      character (len=80) :: header    !           |header of file
      character (len=16) :: namedum   !           |
      character (len=3)::obtyp
      integer :: eof                  !           |end of file
      integer :: imax                 !none       |determine max number for array (imax) and total number in file
      integer :: nspu                 !           |
      logical :: i_exist              !none       |check to determine if file exists
      integer :: max                  !           |
      integer :: mcha_sp              !           |
      integer :: i                    !none       |counter
      integer :: isp                  !none       |counter
      integer :: numb                 !           |
      integer :: ise                  !none       |counter
      integer :: ichan

      eof = 0
      imax = 0

    !!read data for surface elements in the floodplain-for overbank flooding
      inquire (file=in_link%chan_surf, exist=i_exist)
      if (i_exist .or. in_link%chan_surf /= "null") then
      do
        open (107,file=in_link%chan_surf)
        read (107,*,iostat=eof) titldum
        if (eof < 0) exit
        read (107,*,iostat=eof) mcha_sp
        if (eof < 0) exit
        read (107,*,iostat=eof) header
        if (eof < 0) exit
        imax = 0
        do while (eof == 0)
          read (107,*,iostat=eof) i
          if (eof < 0) exit
          imax = imax + 1
        end do
        imax=max(imax, mcha_sp)

        allocate (ch_sur(imax))
        rewind (107)
        read (107,*,iostat=eof) titldum
        if (eof < 0) exit
        read (107,*,iostat=eof) mcha_sp
        if (eof < 0) exit
        read (107,*,iostat=eof) header
        if (eof < 0) exit

        db_mx%ch_surf = imax

                !db_mx%ch_surf
        do ise = 1, imax
          read (107,*,iostat=eof) i, ichan, namedum, nspu
          if (eof < 0) exit
          allocate (ch_sur(i)%obtyp(nspu))
          allocate (ch_sur(i)%obtypno(nspu))
          allocate (ch_sur(i)%wid(nspu))
          allocate (ch_sur(i)%dep(nspu))
          allocate (ch_sur(i)%flood_volmx(nspu))
          allocate (ch_sur(i)%hd(nspu))

          if (nspu > 0) then
            backspace (107)
            read (107,*,iostat=eof) numb, ch_sur(i)%chnum, ch_sur(i)%name,    &
            ch_sur(i)%num, (ch_sur(i)%obtyp(isp), ch_sur(i)%obtypno(isp), isp = 1, nspu)
            if (eof < 0) exit
          end if

        end do
        exit
      end do
      close (107)
      end if
      return
      end subroutine overbank_read


text:
      integer function njres_contr(contr)

      include 'opdim.h'
      include 'def_contraction.h'

      type(contraction), intent(in) ::
     &     contr

      type(cntr_arc), pointer ::
     &     xarc(:)
      integer ::
     &     iarc, nxarc

      xarc => contr%xarc
      nxarc = contr%nxarc

      njres_contr = 1
      do iarc = 1, nxarc
        njres_contr = max(njres_contr,xarc(iarc)%link(2))
      end do

      return
      end

max_stars_repo_name: ak-ustutt/GeCCo-public

max_issues_repo_name: ak-ustutt/GeCCo-public

max_forks_repo_name: ak-ustutt/GeCCo-public


text:
program t
  data i,j,k/2*11,1*b'10111'/
  print *,i,j,k
end program t

max_stars_repo_name: maddenp/ppp

max_issues_repo_name: maddenp/ppp

max_forks_repo_name: maddenp/ppp


text:
      MODULE w2mat_I
      INTERFACE
!...Generated by Pacific-Sierra Research 77to90  4.4G  12:41:19  03/10/06
      SUBROUTINE w2mat (IP, JP, WW, W, LMW, LIMIJ, LIMKL)
      USE vast_kind_param,ONLY: DOUBLE
      integer, INTENT(IN) :: IP
      integer, INTENT(IN) :: JP
      integer, INTENT(IN) :: LMW
      integer, INTENT(IN) :: LIMIJ
      integer, INTENT(IN) :: LIMKL
      real(DOUBLE), DIMENSION(LIMKL,LIMIJ), INTENT(IN) :: WW
      real(DOUBLE), DIMENSION(LMW,LMW), INTENT(OUT) :: W
      END SUBROUTINE
      END INTERFACE
      END MODULE

max_stars_repo_name: openmopac/MOPAC-archive

max_issues_repo_name: openmopac/MOPAC-archive

max_forks_repo_name: openmopac/MOPAC-archive


text:
      subroutine wraea(a,b,alpha,th0,thf)
C.....subroutine  wraea    01/06/75
      common/gfgel/gf(28)
      common/gfbftr/xtr,ytr
      if(a.eq.0.)goto 3
      gf(10)=100.
      alpha1=alpha*gf(28)
      th01=th0*gf(28)
      thf1=thf*gf(28)
      a1=abs(a)
      d=a1*b/sqrt((a1*sin(th01))**2+(b*cos(th01))**2)
      i=abs(gf(9))
      gf(i)=-20.
      gf(i+1)=xtr-d*cos(th01+alpha1)
      gf(i+2)=ytr-d*sin(th01+alpha1)
      gf(i+3)=a
      gf(i+4)=b
      gf(i+5)=alpha
      gf(i+6)=th0
      gf(i+7)=thf
      if(gf(9).gt.0.)call strmod(0)
      return
 3    call gffals(5)
      return
      end

max_stars_repo_name: sergev/grafor

max_issues_repo_name: sergev/grafor

max_forks_repo_name: sergev/grafor


module geometry_c
  implicit none
  private

contains
!
!###################################################################################
!
!*add_matching_mesh:* Replicates an existing mesh, continuing node and element numbers
  subroutine add_matching_mesh_c(umbilical_elem_option,umbilical_elem_option_len, &
        umbilical_element_numbers, umbilical_element_numbers_len) bind(C, name="add_matching_mesh_c")
    use iso_c_binding, only: c_ptr
    use utils_c, only: strncpy
    use other_consts, only: MAX_STRING_LEN,MAX_FILENAME_LEN
    use geometry, only: add_matching_mesh
    implicit none

    integer,intent(in) :: umbilical_elem_option_len, umbilical_element_numbers_len
    type(c_ptr), value, intent(in) :: umbilical_elem_option
    character(len=MAX_STRING_LEN) :: umbilical_elem_option_f
    integer,intent(in) :: umbilical_element_numbers(umbilical_element_numbers_len)

    call strncpy(umbilical_elem_option_f, umbilical_elem_option, umbilical_elem_option_len)
#if defined _WIN32 && defined __INTEL_COMPILER
    call so_add_matching_mesh(umbilical_elem_option_f, umbilical_element_numbers)
#else
    call add_matching_mesh(umbilical_elem_option_f, umbilical_element_numbers)
#endif

  end subroutine add_matching_mesh_c

!
!###################################################################################
!
!*append_units:* Appends terminal units at the end of a tree structure
  subroutine append_units_c() bind(C, name="append_units_c")
    use geometry, only: append_units
    implicit none

#if defined _WIN32 && defined __INTEL_COMPILER
    call so_append_units
#else
    call append_units
#endif

  end subroutine append_units_c

!
!###################################################################################
!
!*calc_capillary_unit_length:* Calculates the effective length of terminal units
  subroutine calc_capillary_unit_length_c(num_convolutes,num_generations) &
      bind(C, name="calc_capillary_unit_length_c")
    use geometry, only: calc_capillary_unit_length
    implicit none

    integer, intent(inout) :: num_convolutes,num_generations

#if defined _WIN32 && defined __INTEL_COMPILER
    call so_calc_capillary_unit_length(num_convolutes,num_generations)
#else
    call calc_capillary_unit_length(num_convolutes,num_generations)
#endif

  end subroutine calc_capillary_unit_length_c
!
!###################################################################################
!
  subroutine define_1d_elements_c(ELEMFILE, filename_len, anastomosis_elem_in) &
              bind(C, name="define_1d_elements_c")

    use iso_c_binding, only: c_ptr
    use utils_c, only: strncpy
    use other_consts, only: MAX_FILENAME_LEN
    use geometry, only: define_1d_elements
    implicit none

    integer,intent(in) :: filename_len
    integer,intent(in) :: anastomosis_elem_in
    type(c_ptr), value, intent(in) :: ELEMFILE
    character(len=MAX_FILENAME_LEN) :: filename_f

    call strncpy(filename_f, ELEMFILE, filename_len)

#if defined _WIN32 && defined __INTEL_COMPILER
    call so_define_1d_elements(filename_f,anastomosis_elem_in)
#else
    call define_1d_elements(filename_f,anastomosis_elem_in)
#endif

  end subroutine define_1d_elements_c
!
!###################################################################################
!
  subroutine define_node_geometry_c(NODEFILE, filename_len) bind(C, name="define_node_geometry_c")

    use iso_c_binding, only: c_ptr
    use utils_c, only: strncpy
    use other_consts, only: MAX_FILENAME_LEN
    use geometry, only: define_node_geometry
    implicit none

    integer,intent(in) :: filename_len
    type(c_ptr), value, intent(in) :: NODEFILE
    character(len=MAX_FILENAME_LEN) :: filename_f

    call strncpy(filename_f, NODEFILE, filename_len)

#if defined _WIN32 && defined __INTEL_COMPILER
    call so_define_node_geometry(filename_f)
#else
    call define_node_geometry(filename_f)
#endif

  end subroutine define_node_geometry_c
!
!###################################################################################
!
  subroutine define_rad_from_file_c(FIELDFILE, filename_len, order_system, &
          order_system_len,s_ratio) bind(C, name="define_rad_from_file_c")

    use iso_c_binding, only: c_ptr
    use utils_c, only: strncpy
    use other_consts, only: MAX_FILENAME_LEN, MAX_STRING_LEN
    use geometry, only: define_rad_from_file
    use arrays, only: dp
    implicit none

    integer,intent(in) :: filename_len, order_system_len
    type(c_ptr), value, intent(in) :: FIELDFILE, order_system
    real(dp),intent(in) :: s_ratio
    character(len=MAX_FILENAME_LEN) :: filename_f
    character(len=MAX_STRING_LEN) :: order_system_f

    call strncpy(filename_f, FIELDFILE, filename_len)
    call strncpy(order_system_f, order_system, order_system_len)

#if defined _WIN32 && defined __INTEL_COMPILER
    call so_define_rad_from_file(filename_f, order_system_f,s_ratio)
#else
    call define_rad_from_file(filename_f, order_system_f,s_ratio)
#endif

    end subroutine define_rad_from_file_c
!
!##################################################################################
!
!*define_rad_from_geom:* Defines vessel radius based on their geometric structure
  subroutine define_rad_from_geom_c(order_system, order_system_len, control_param, &
        start_from, start_from_len, start_rad, group_type, group_type_len, group_options, group_options_len) &
        bind(C, name="define_rad_from_geom_c")

    use iso_c_binding, only: c_ptr
    use utils_c, only: strncpy
    use other_consts, only: MAX_STRING_LEN
    use arrays, only: dp
    use geometry, only: define_rad_from_geom
    implicit none

    real(dp),intent(in) :: control_param, start_rad
    integer,intent(in) :: order_system_len, start_from_len, group_type_len, group_options_len
    type(c_ptr), value, intent(in) :: order_system, start_from, group_type, group_options
    character(len=MAX_STRING_LEN) :: order_system_f, start_from_f, group_type_f, group_options_f

    call strncpy(order_system_f, order_system, order_system_len)
    call strncpy(start_from_f, start_from, start_from_len)
    call strncpy(group_options_f, group_options, group_options_len)
    call strncpy(group_type_f, group_type, group_type_len)

#if defined _WIN32 && defined __INTEL_COMPILER
    call so_define_rad_from_geom(order_system_f, control_param, start_from_f, start_rad, group_type_f, group_options_f)
#else
    call define_rad_from_geom(order_system_f, control_param, start_from_f, start_rad, group_type_f, group_options_f)
#endif

  end subroutine define_rad_from_geom_c
!
!###########################################################################
!
  subroutine define_ven_rad_from_art_c(FILENAME, filename_len,&
          factor) bind(C, name="define_ven_rad_from_art_c")

    use iso_c_binding, only: c_ptr
    use utils_c, only: strncpy
    use other_consts, only: MAX_FILENAME_LEN
    use geometry, only: define_ven_rad_from_art
    use arrays, only: dp
    implicit none

    integer,intent(in) :: filename_len
    type(c_ptr), value, intent(in) :: FILENAME
    real(dp),intent(in) :: factor
    character(len=MAX_FILENAME_LEN) :: filename_f

    call strncpy(filename_f, FILENAME, filename_len)

#if defined _WIN32 && defined __INTEL_COMPILER
    call so_define_ven_rad_from_art(filename_f, factor)
#else
    call define_ven_rad_from_art(filename_f,factor)
#endif

    end subroutine define_ven_rad_from_art_c
!
!##################################################################################
!
!*element_connectivity_1d:*  Calculates element connectivity in 1D and stores in elelem_cnct
  subroutine element_connectivity_1d_c() bind(C, name="element_connectivity_1d_c")
    use geometry, only: element_connectivity_1d
    implicit none

#if defined _WIN32 && defined __INTEL_COMPILER
    call so_element_connectivity_1d
#else
    call element_connectivity_1d
#endif

  end subroutine element_connectivity_1d_c

!
!###################################################################################
!
!*evaluate_ordering:* calculates generations, Horsfield orders, Strahler orders for a given tree
  subroutine evaluate_ordering_c() bind(C, name="evaluate_ordering_c")
    use geometry, only: evaluate_ordering
    implicit none

#if defined _WIN32 && defined __INTEL_COMPILER
    call so_evaluate_ordering
#else
    call evaluate_ordering
#endif

  end subroutine evaluate_ordering_c

!
!###################################################################################
!
subroutine update_1d_elem_field_c(ne_field, elem_number,value) &
   bind(C, name="update_1d_elem_field_c")
    use geometry, only: update_1d_elem_field
    use arrays, only: dp
    implicit none
    integer, intent(in) :: ne_field
    integer, intent(in) :: elem_number
    real(dp), intent(in) :: value

#if defined _WIN32 && defined __INTEL_COMPILER
    call so_update_1d_elem_field(ne_field,elem_number,value)
#else
    call update_1d_elem_field(ne_field,elem_number,value)
#endif
end subroutine update_1d_elem_field_c

end module geometry_c


text:
      function halodens(r,z)
      common /flags/ idiskflag, ibulgeflag, ihaloflag

      halodens=0
      psi=pot(r,z)
      psi0=pot(0.,0.)
      if( ihaloflag .eq. 1 ) then
         halodens = halodens + densrpsi(r,psi)
      endif
      if( ihaloflag .eq. 3 ) then
         halodens = halodens + halodfdenspsi(psi,psi0)
      endif
      return
      end

max_stars_repo_name: rknop/amuse

max_issues_repo_name: rknop/amuse

max_forks_repo_name: rieder/amuse


text:
c
c
c     ###################################################
c     ##  COPYRIGHT (C)  2012  by  Jay William Ponder  ##
c     ##              All Rights Reserved              ##
c     ###################################################
c
c     ##############################################################
c     ##                                                          ##
c     ##  subroutine initatom  --  setup atoms in periodic table  ##
c     ##                                                          ##
c     ##############################################################
c
c
c     "initatom" sets the atomic symbol for each element in the
c     periodic table
c
c
      subroutine initatom
      implicit none
      include 'sizes.i'
      include 'ptable.i'
      integer i
      character*3 atmsym(maxele)
c
c     supported atomic symbols for the elements
c
      data atmsym  / 'H  ', 'He ', 'Li ', 'Be ', 'B  ', 'C  ', 'N  ',
     &               'O  ', 'F  ', 'Ne ', 'Na ', 'Mg ', 'Al ', 'Si ',
     &               'P  ', 'S  ', 'Cl ', 'Ar ', 'K  ', 'Ca ', 'Sc ',
     &               'Ti ', 'V  ', 'Cr ', 'Mn ', 'Fe ', 'Co ', 'Ni ',
     &               'Cu ', 'Zn ', 'Ga ', 'Ge ', 'As ', 'Se ', 'Br ',
     &               'Kr ', 'Rb ', 'Sr ', 'Y  ', 'Zr ', 'Nb ', 'Mo ',
     &               'Tc ', 'Ru ', 'Rh ', 'Pd ', 'Ag ', 'Cd ', 'In ',
     &               'Sn ', 'Sb ', 'Te ', 'I  ', 'Xe ', 'Cs ', 'Ba ',
     &               'La ', 'Ce ', 'Pr ', 'Nd ', 'Pm ', 'Sm ', 'Eu ',
     &               'Gd ', 'Tb ', 'Dy ', 'Ho ', 'Er ', 'Tm ', 'Yb ',
     &               'Lu ', 'Hf ', 'Ta ', 'W  ', 'Re ', 'Os ', 'Ir ',
     &               'Pt ', 'Au ', 'Hg ', 'Tl ', 'Pb ', 'Bi ', 'Po ',
     &               'At ', 'Rn ', 'Fr ', 'Ra ', 'Ac ', 'Th ', 'Pa ',
     &               'U  ', 'Np ', 'Pu ', 'Am ', 'Cm ', 'Bk ', 'Cf ',
     &               'Es ', 'Fm ', 'Md ', 'No ', 'Lr ', 'Rf ', 'Db ',
     &               'Sg ', 'Bh ', 'Hs ', 'Mt ', 'Ds ', 'Rg ', 'Cn ' /
c
c
c     set atomic symbols for each element in periodic table
c
      do i = 1, maxele
         elemnt(i) = atmsym(i)
      end do
      return
      end

max_stars_repo_name: htna/HCsbLib

max_issues_repo_name: htna/HCsbLib

max_forks_repo_name: htna/HCsbLib


text:
*     ------------------------------------------------------------------
*
*       PROGRAM LINES  -- PROGRAM TO PRINT THE LINES IN THE
*			  LSJ TRANSITION ARRAY
*
*                By C. Froese Fischer
*                   Bin Liu
*                   Vanderbilt University
*                   Nashville, TN 37235 USA
*
*                May, 1983
*
*     ------------------------------------------------------------------
*       Output Table of Transition Probabilities
*
*
        PARAMETER (LINED=100000)
        CHARACTER*2 TYPE(LINED),TERM1,TERM2,TERM1P,TERM2P
        CHARACTER*6 ATOM
        CHARACTER*25 LAB1,LAB2,LAB1P,LAB2P
        CHARACTER*64 CONFIG(LINED,2)
        INTEGER JV(LINED,2), INDEX(LINED)
        DOUBLE PRECISION  ET(LINED,2)
        REAL V(LINED,6)
*
       ISCW = 0
*
        WRITE(ISCW,*)'Enter tolerance on line strength'
        READ(*, *) TOL
	WRITE(ISCW,*) 'Name of .lsj file ?'
	READ(*,*)  LAB2
	LAB1 = trim(LAB2)//'.lsj'
	Print *, 'The file that will be searched is ',LAB1
        OPEN(UNIT=1,FILE=LAB1,STATUS='OLD')
        N = 1
	READ(1,'(A)') LAB1
	READ(1,'(A)') LAB1
	READ(1,'(A)') LAB1
        READ(1,'(A)',end=999) LAB1
	READ(1,'(A)',end=999) LAB1
10      READ(1,11) JV(N,1),ET(N,1),CONFIG(N,1)
11      FORMAT(I4,F14.8,2X,A)
        READ(1,11) JV(N,2),ET(N,2),CONFIG(N,2)
        READ(1,12) V(N,1),V(N,2),V(N,3),TYPE(N),V(N,4),V(N,5),V(N,6)
12      FORMAT(F11.2,7X,F11.2,12X,F11.2/
     :         1X,A2,6X,D12.5,8X,D12.5,9X,D12.5)
        print 12,  V(N,1),V(N,2),V(N,3),TYPE(N),V(N,4),V(N,5),V(N,6)
	print *, 'Type(1:1)', TYPE(N)(1:1)
        IF (TYPE(N)(1:1)  .EQ. 'E') READ(1,'(A)', end=999) LAB1
        IF (V(N,4) .GE. TOL) N = N + 1
        READ(1,'(/)',end=999)
        IF (N .LE. (LINED)) GO TO 10
999     N = N-1
        WRITE(ISCW,*) 'Number of transitions =',N

        DO 20 I = 1,N
           INDEX(I) = I
20      CONTINUE

        WRITE(ISCW,'(A,7(/A))') ' Select the line list order:'
     :      , ' 1:  Energy (cm-1)'
     :      , ' 2:  Wavelength (Angstroms) in Vacuum'
     :      , ' 3:  Wavelength (Angstroms) in Air'
     :      , ' 4:  Line Strength'
     :      , ' 5:  gf Value'
     :      , ' 6:  Transition Probability'
     :      , ' Enter your selection: '
        READ(*,*) I

        DO 30 IPOS = 1,N-1
           J = IPOS
           DO 32 JPOS = IPOS+1,N
              JL = INDEX(J)
              JJ = INDEX(JPOS)
              IF (V(JJ,I) .LT. V(JL,I)) J = JPOS
32         CONTINUE
           ITEMP = INDEX(IPOS)
           INDEX(IPOS) = INDEX(J)
           INDEX(J) = ITEMP
30      CONTINUE
*
*               Data has been sorted
*
        WRITE(6,1) ATOM,Z,NEL
1       FORMAT(/' Line List for ',A6,' ( Z = ',F3.0,') with',
     :         I3,' electrons'//)
        WRITE(6,2)
2       FORMAT(80('-')/)
        WRITE(6,3)
3       FORMAT(1X,'Transition Array'/3X,'Multiplet',2x,'Line',
     :          3X,'Type',3X,'E(cm-1)',5X,'L(air)',7x,'S',
     :          7X,'gf',7X,'Aki')
        WRITE(6,2)
        LAB1P = ' '
        LAB2P = ' '
        TERM1P = ' '
        TERM2P = ' '
        DO 40 K = 1,N
           II = INDEX(K)
           CALL SEPAR(CONFIG(II,1),LAB1,TERM1)
           CALL SEPAR(CONFIG(II,2),LAB2,TERM2)
           IF (LAB1 .NE. LAB1P) THEN
                LAB1P = LAB1
                LAB2P = LAB2
                TERM1P = TERM1
                TERM2P = TERM2
                WRITE(6,*)
           ELSE
                LAB1 = ' '
                IF (LAB2 .NE. LAB2P) THEN
                    LAB2P = LAB2
                    TERM1P = TERM1
                    TERM2P = TERM2
                    WRITE(6,*)
                ELSE
                    LAB2 = ' '
                    IF (TERM1P .NE. TERM1) THEN
                        TERM1P = TERM1
                        TERM2P = TERM2
                    ELSE
                        TERM1 = ' '
                        IF (TERM2P .NE. TERM2) THEN
                            TERM2P = TERM2
                        ELSE
                            TERM2 = ' '
                        ENDIF
                    ENDIF
                ENDIF
            ENDIF
           IF (LAB1//LAB2 .NE. ' ') WRITE(6,35) LAB1,LAB2
	   WRITE(6,36) TERM1,TERM2,JV(II,1)/2.,JV(II,2)/2.,
     :          TYPE(II),V(II,1),V(II,3),V(II,4),V(II,5),V(II,6)
35         FORMAT(1X,A25,2X,A25)
36         FORMAT(4X,A3,1X,A3,1X,F4.1,'-',F4.1,
     :            2X,A2,F11.1,F11.1,1X,F8.4,1X,F8.4,1PE12.3)
40      CONTINUE
        END
* ----------------------------------------------------------------------
*       SEPARATE
* ----------------------------------------------------------------------
*
        SUBROUTINE SEPAR(CONFIG,LAB,TERM)
*
        CHARACTER CONFIG*64, LAB*25,TERM*2,CH2*2,CH1*1,COPY*64

                COPY = CONFIG
*
*       Delete the extra characters
*
                IF (INDEX(COPY,'(0)') .GT. 0) THEN
                    J = INDEX(COPY,'.')
                    COPY = CONFIG(J+1:64)
                ENDIF

*
*       1. SEPARATE the final term
*
                N = INDEX(COPY,' ')-1
                IF (COPY(N:N) .GE. '0' .AND. COPY(N:N) .LE.  '9') THEN
                    N = N-4
		    K = 4
                ELSE
                    N = N-3
		    K = 3
                ENDIF
                TERM = COPY(N+2:N+3)
               COPY(N+1:N+K) = '   '

*
*       2. Delete set subscript
*
                CH1 = COPY(N:N)
                IF (CH1.GE.'0' .AND. CH1.LE.'9') COPY(N:N) = ' '

*
*       3. If after removing the final term, there are no other
*   intermediate couplings prefaced by '_' and the last coupling
*   is the same as the final term, then the coupling for the TERMal
*   term is omitted .
*
                J = INDEX(COPY,'_')
                IF (J .EQ. 0) THEN
                    CH2 = COPY(N-2:N-1)
                    IF (CH2 .EQ. TERM) COPY(N-2:N-1) = '  '
                ENDIF
                LAB = COPY(1:30)
        END


text:
cdis
cdis    Open Source License/Disclaimer, Forecast Systems Laboratory
cdis    NOAA/OAR/FSL, 325 Broadway Boulder, CO 80305
cdis
cdis    This software is distributed under the Open Source Definition,
cdis    which may be found at http://www.opensource.org/osd.html.
cdis
cdis    In particular, redistribution and use in source and binary forms,
cdis    with or without modification, are permitted provided that the
cdis    following conditions are met:
cdis
cdis    - Redistributions of source code must retain this notice, this
cdis    list of conditions and the following disclaimer.
cdis
cdis    - Redistributions in binary form must provide access to this
cdis    notice, this list of conditions and the following disclaimer, and
cdis    the underlying source code.
cdis
cdis    - All modifications to this software must be clearly documented,
cdis    and are solely the responsibility of the agent making the
cdis    modifications.
cdis
cdis    - If significant modifications or enhancements are made to this
cdis    software, the FSL Software Policy Manager
cdis    (softwaremgr@fsl.noaa.gov) should be notified.
cdis
cdis    THIS SOFTWARE AND ITS DOCUMENTATION ARE IN THE PUBLIC DOMAIN
cdis    AND ARE FURNISHED "AS IS."  THE AUTHORS, THE UNITED STATES
cdis    GOVERNMENT, ITS INSTRUMENTALITIES, OFFICERS, EMPLOYEES, AND
cdis    AGENTS MAKE NO WARRANTY, EXPRESS OR IMPLIED, AS TO THE USEFULNESS
cdis    OF THE SOFTWARE AND DOCUMENTATION FOR ANY PURPOSE.  THEY ASSUME
cdis    NO RESPONSIBILITY (1) FOR THE USE OF THE SOFTWARE AND
cdis    DOCUMENTATION; OR (2) TO PROVIDE TECHNICAL SUPPORT TO USERS.
cdis
cdis
cdis
cdis
cdis
      subroutine draw_county_map(sw,ne,jproj,polat,polon,rrot,jdot
     1                          ,icol_sta,icol_cou,ni,nj,namelist_parms)

      include 'lapsplot.inc'
c
      real sw(2),ne(2),pl1(2),pl2(2),pl3(2),pl4(2),
     +       polat,polon,rrot

c
!abdel
      DOUBLE PRECISION GRSP,DPOLAT,DPOLON,DSW(2),DNE(2)
      INTEGER IRGL

      DATA GRSP,IRGL / 1.D0 , 0  /
      PARAMETER (NCRA=10000,NGPS=10,LRWK=2*NCRA)

      DIMENSION XCRA(NCRA),YCRA(NCRA)
      DIMENSION RWRK(LRWK)
      EQUIVALENCE (RWRK(1),XCRA(1)),(RWRK(NCRA+1),YCRA(1))
! abdel

      integer jproj,jjlts,jgrid,jus,jdot,ier
c
      COMMON/SUPMP9/DS,DI,DSRDI
      common /zoom/       zoom
!     DI = 50.
!     polat=90.

!     rrot=0.
      pl1(1)=sw(1)
      pl2(1)=sw(2)
      pl3(1)=ne(1)
      pl4(1)=ne(2)
      jjlts=-2
      jgrid=0

!     call get_lapsplot_parms(namelist_parms,istatus)

!     1 means use local version of supmap, 2 means use the NCARGlib version
!     3 means to try newer (ezmap) routines
      mode_supmap = namelist_parms%mode_supmap

      call get_grid_spacing(grid_spacing_m,istatus)
      if(istatus .ne. 1)then
          write(6,*)' no grid spacing, stop in draw_county_map'
          stop
      else
          write(6,*)
          write(6,*)' Subroutine draw_county_map...',mode_supmap,jproj
      endif

      domsize = (float(nj)-1.) * grid_spacing_m / zoom

!     Plot Counties
      if(jdot .eq. 1)then
          call gsln(3) ! Dotted
      else
          call gsln(1) ! Solid
      endif

      jgrid=namelist_parms%latlon_int        ! Draw lat/lon lines?

      if(domsize .le. 1500e3 .and.
     1   namelist_parms%continent_line_width .gt. 0)then
          write(6,*)' Plotting Counties ',domsize,mode_supmap,jgrid
          call setusv_dum(2HIN,icol_cou)

          if(mode_supmap .eq. 1)then
              jus=-4
              call supmap_local(jproj,polat,polon,rrot,pl1,pl2,pl3,pl4,
     +                          jjlts,jgrid,jus,jdot,ier)
          elseif(mode_supmap .eq. 2)then
              iout = 0
              call supmap      (jproj,polat,polon,rrot,pl1,pl2,pl3,pl4,
     +                          jjlts,jgrid*1000,iout,jdot,ier)
          elseif(mode_supmap .eq. 3)then
              write(6,*)' Calling MPLNDR, etc. for counties...'
!             call mapdrw()
              call mapint
!             call maplot
              CALL MPLNDR ('Earth..2',5)
              if(jgrid .gt. 0)then ! draw lat/lon lines
                  call mpsetr('GR',float(jgrid))
                  call mapgrd()
              endif
c abdel
          elseif(mode_supmap .eq. 4)then
              write(6,*)' Calling SUB submap=4 for europe...'
              DPOLAT=polat
              DPOLON=polon
              DSW(1)=sw(1)
              DSW(2)=sw(2)
              DNE(1)=ne(1)
              DNE(2)=ne(2)
              CALL MDPROJ ('ST',DPOLAT,DPOLON,0.D0)
              CALL MDPSET ('CO',DSW(1),DSW(2),DNE(1),DNE(2))
              CALL MAPSTD ('GR',GRSP)
              CALL MDRGOL (IRGL,RWRK,LRWK)

          elseif(mode_supmap .eq. 5)then
              write(6,*)' Accessing RANGS database...'
              write(6,*)' Not yet supported - stop'
              stop
          endif
          if(ier .ne. 0)write(6,*)' ier = ',ier

          call sflush

          jgrid=0                        ! Do not draw subsequent lat/lon lines

      else
          write(6,*)' Omitting counties ',domsize
     1             ,namelist_parms%continent_line_width

      endif

      call gsln(1)
      call setusv_dum('IN',namelist_parms%icol_state)

      call GSLWSC(namelist_parms%continent_line_width)

      if(mode_supmap .eq. 1)then
          write(6,*)' Plotting States From Counties ',mode_supmap,jgrid
          jus=-8
          call supmap_local(jproj,polat,polon,rrot,pl1,pl2,pl3,pl4,
     +                      jjlts,jgrid,jus,jdot,ier)
      elseif(mode_supmap .eq. 2)then
          write(6,*)' Plotting States From Counties ',mode_supmap,jgrid
          iout = 0
          call supmap      (jproj,polat,polon,rrot,pl1,pl2,pl3,pl4,
     +                      jjlts,jgrid*1000,iout,jdot,ier)
      elseif(mode_supmap .eq. 3)then
          call mapint

          if(namelist_parms%state_line_width .gt. 0. .OR.
     1       namelist_parms%country_line_width .gt. 0.     )then
              write(6,*)' Calling MAPDRW, etc. for countries/states...'
     1                 ,namelist_parms%state_line_width
     1                 ,namelist_parms%icol_country
     1                 ,icol_sta
              call GSLWSC(namelist_parms%state_line_width)
              call setusv_dum('IN',namelist_parms%icol_state)
              CALL MPLNDR ('Earth..2',4) ! states & countries
          else
              write(6,*)' Skip plot of countries/states'
              if(namelist_parms%continent_line_width .gt. 0.)then
                  write(6,*)' Calling MAPDRW just for continents...'
                  call GSLWSC(namelist_parms%continent_line_width)
                  call setusv_dum('IN',namelist_parms%icol_continent)
                  CALL MPLNDR ('Earth..2',2) ! continents
              endif
          endif

          if( (namelist_parms%icol_country .ne.
     1         namelist_parms%icol_state)
     1                     .OR.
     1        (namelist_parms%country_line_width .eq. 0.
     1                     .AND.
     1         namelist_parms%state_line_width .gt. 0.)
     1                                                 )then
              write(6,*)
     1              ' Replotting countries in separate color/width: '
     1                 ,0
     1                 ,namelist_parms%state_line_width
              call GSLWSC(namelist_parms%state_line_width)
              if(namelist_parms%country_line_width .eq. 0.)then
                  call setusv_dum('IN',0)
              else
                  call setusv_dum('IN',namelist_parms%icol_country)
              endif
              CALL MPLNDR ('Earth..2',3) ! countries
          endif

          if(jgrid .gt. 0)then ! draw lat/lon lines
              call setusv_dum(2HIN,icol_cou)
              call mpsetr('GR',float(jgrid))
              call mapgrd()
          endif
c abdel
      elseif(mode_supmap .eq. 4)then
            write(6,*)' Calling SUB submap=4 for europe...'
            DPOLAT=polat
            DPOLON=polon
            DSW(1)=sw(1)
            DSW(2)=sw(2)
            DNE(1)=ne(1)
            DNE(2)=ne(2)
            CALL MDPROJ ('ST',DPOLAT,DPOLON,0.D0)
            CALL MDPSET ('CO',DSW(1),DSW(2),DNE(1),DNE(2))
            CALL MAPSTD ('GR',GRSP)
            CALL MDRGOL (IRGL,RWRK,LRWK)

      else
          write(6,*)' Accessing RANGS database...'
          write(6,*)' Not yet supported - stop'
          stop

      endif

      if(ier .ne. 0)write(6,*)' ier = ',ier

      call sflush

      call gsln(1)
      call setusv_dum(2HIN,icol_sta)

      jgrid=0                                ! Do not draw lat/lon lines

      if(mode_supmap .eq. 1)then
          write(6,*)' Plotting Continents ',mode_supmap,jgrid
          jus=-1
          call supmap_local(jproj,polat,polon,rrot,pl1,pl2,pl3,pl4,
     +                      jjlts,jgrid,jus,jdot,ier)
      elseif(mode_supmap .eq. 2)then
          write(6,*)' Plotting Continents ',mode_supmap,jgrid
          iout = 2
          call supmap      (jproj,polat,polon,rrot,pl1,pl2,pl3,pl4,
     +                      jjlts,jgrid*1000,iout,jdot,ier)
      endif
      if(ier .ne. 0)write(6,*)' ier = ',ier

      call GSLWSC(1.0)

      call sflush

      write(6,*)

      return
      end

       subroutine get_lapsplot_parms(namelist_parms,istatus)

       include 'lapsplot.inc'

       character*150 static_dir,filename
       character*3 c3_time_zone
       character*30 c_institution
       character*6 c_vnt_units
       character*7 c_tpw_units
       character*7 c_units_type
       character*7 c_pbl_depth_units
       character*10 c_ob_color
       character*20 btemp_colortable
       logical l_discrete,l_sphere,l_low_fill,l_high_fill
       real time_zone

       namelist /lapsplot_nl/ latlon_int,continent_line_width
     1                       ,country_line_width
     1                       ,state_line_width
     1                       ,county_line_width
     1                       ,c3_time_zone,time_zone
     1                       ,c_institution,c_vnt_units,c_tpw_units
     1                       ,c_units_type,c_pbl_depth_units
     1                       ,chigh_sfcwind,chigh_3dwind,chigh_cape
     1                       ,chigh_tpw,power_tpw,scale_omega
     1                       ,l_discrete, l_sphere
     1                       ,l_low_fill, l_high_fill
     1                       ,mode_supmap, iraster, icol_barbs
     1                       ,icol_continent,icol_country
     1                       ,icol_state,icol_county
     1                       ,dist_plot_ua, dist_plot_sfc
     1                       ,c_ob_color, i_background_color
     1                       ,btemp_colortable
     1                       ,i_pcp_sto_colorbar
     1                       ,i_sno_sto_colorbar
     1                       ,montage

!      Set defaults
       latlon_int = 0
       continent_line_width = 1.0
       country_line_width = 1.0
       state_line_width = 1.0
       county_line_width = 1.0
       c3_time_zone = 'UTC'
       time_zone = 0.0
       c_institution = 'NOAA/FSL LAPS'
       c_vnt_units = 'M**2/S'
       c_tpw_units = 'CM'
       mode_supmap = 3
       iraster = 0
       l_sphere = .false.
       icol_barbs = 0
       icol_continent = 7 ! yellow
       icol_country = 7   ! yellow
       icol_state = 7     ! yellow
       icol_county = 7    ! yellow
       chigh_cape = 7000.
       chigh_tpw = 7.
       power_tpw = 0.7
       scale_omega = 100. ! relative to Pa/S
       c_ob_color = 'default'
       i_background_color = 2
       btemp_colortable = 'linear'
       i_pcp_sto_colorbar = 3
       i_sno_sto_colorbar = 4
       call get_directory('static',static_dir,len_dir)

       filename = static_dir(1:len_dir)//'/lapsplot.nl'

       open(1,file=filename,status='old',err=900)
       read(1,lapsplot_nl,err=901)
       close(1)

       print*,'success reading lapsplot_nl in ',filename
       write(*,lapsplot_nl)

!      Set namelist structure
       namelist_parms%latlon_int = latlon_int
       namelist_parms%continent_line_width = continent_line_width
       namelist_parms%country_line_width   = country_line_width
       namelist_parms%state_line_width     = state_line_width
       namelist_parms%county_line_width    = county_line_width
       namelist_parms%c3_time_zone = c3_time_zone
       namelist_parms%c_institution = c_institution
       namelist_parms%time_zone = time_zone
       namelist_parms%c_vnt_units = c_vnt_units
       namelist_parms%c_tpw_units = c_tpw_units
       namelist_parms%c_units_type = c_units_type
       namelist_parms%c_pbl_depth_units = c_pbl_depth_units
       namelist_parms%chigh_sfcwind = chigh_sfcwind
       namelist_parms%chigh_3dwind = chigh_3dwind
       namelist_parms%chigh_cape = chigh_cape
       namelist_parms%chigh_tpw = chigh_tpw
       namelist_parms%power_tpw = power_tpw
       namelist_parms%scale_omega = scale_omega
       namelist_parms%c_ob_color = c_ob_color
       namelist_parms%btemp_colortable = btemp_colortable
       namelist_parms%i_background_color = i_background_color
       namelist_parms%l_discrete = l_discrete
       namelist_parms%l_sphere = l_sphere
       namelist_parms%l_low_fill = l_low_fill
       namelist_parms%l_high_fill = l_high_fill
       namelist_parms%mode_supmap = mode_supmap
       namelist_parms%iraster = iraster
       namelist_parms%icol_barbs = icol_barbs
       namelist_parms%icol_continent = icol_continent
       namelist_parms%icol_country = icol_country
       namelist_parms%icol_state = icol_state
       namelist_parms%icol_county = icol_county
       namelist_parms%dist_plot_ua = dist_plot_ua
       namelist_parms%dist_plot_sfc = dist_plot_sfc
       namelist_parms%i_pcp_sto_colorbar = i_pcp_sto_colorbar
       namelist_parms%i_sno_sto_colorbar = i_sno_sto_colorbar

       istatus = 1
       return

  900  print*,'error opening file ',filename
       istatus = 0
       return

  901  print*,'error reading lapsplot_nl in ',filename
       write(*,lapsplot_nl)
       istatus = 0
       return

       end
cabdel
              SUBROUTINE MDRGDI (DINM)
C
C This is a user-replaceable routine that returns the name of the
C directory in which the RANGS/GSHHS data files have been placed.
C
       CHARACTER*(*) DINM

C Fitxer bo
C Return the name of the directory where the RANGS/GSHHS data reside.
C
       DINM='/usr/local/ncarg/lib/ncarg/database/RANGS_GSHHS'
C
C Done.
C
       RETURN

       END

max_stars_repo_name: maxinye/laps-mirror

max_stars_repo_licenses: Intel Unlicense OLDAP-2.2.1 NetCDF

max_issues_repo_name: longwosion/laps-mirror

max_issues_repo_licenses: Intel NetCDF OLDAP-2.2.1 Unlicense

max_forks_repo_name: longwosion/laps-mirror

max_forks_repo_licenses: Intel NetCDF OLDAP-2.2.1 Unlicense


text:
The term Tank House refers to three different structures in Davis. The first Tank House (in recent years sometimes called the pump house,  a misnomer) refers to the somewhat pyramidlooking building that was once in the little grove of orange trees between the DresbachHuntBoyer House and the Varsity Theatre downtown. On August 5th of 2011, the tank house was moved to a family farm known as Impossible Acres. Restoration of the tank house is set to begin; eventually, the structure will help water the familys crops, and it will be open to the public as part of a planned agricultural museum. Read full story http://www.davisenterprise.com/localnews/city/tankhousemoveplannedforfriday/ here.   The second tank house of Davis is the brown wooden structure by Ricci Farm in South Davis. The third is the Barovetto tank house (209 2nd Street).

DresbachHuntBoyerMansion Tank House

The Mansion Tank House, also known as the Downtown Tank House was located on 2nd Street between the Varsity Theatre and the DresbachHuntBoyer House.  Once a part of the City of Davis cityowned DresbachHuntBoyer Mansion Landmark complex, the Mansion Tank House is over Historic Places 120 years old. It was part of the original infrastructure of the Mansion property, which included fruit trees (35 orange trees plus other varieties), gardens, a corral and stable for horses, a cistern for soft water (rain water) collection, and the tank house for tap water well water.

The building is sometimes referred to as the pump house, but this is a misnomer: the Tank House never housed a pump or a tank inside. It was built as a tank house, that is, a specialized structure engineered to support a water tank on top, which was removed when Davis built a regular city water system. What now looks like a flat roof is actually a tank deck constructed of heavy timbers (4x12s) designed to support several tons of water in a round redwood tank. The water was pumped to the tank on top by a windmill attached to the side of the structure. (Wind power! The windmill may even have been made locally, as there was a Sinclair Windmill Company located on the east side of the Train Station railroad.) The tank may have had a roof over it and something like open latticed walls around it, or it may have been simply enclosed by at most a railing around the edge of the deck, probably the latter. The water pipe from the tank usually ran down inside the tank house, and sometimes a stove was installed inside a tank house to keep the pipes from freezing in winter, although perhaps not necessary in Davis.

The pyramidal shape of the Tank House is part of the structural design that enabled it to support the weight of the water tank and to resist the consequent overturning moment produced by having a high center of gravity because most of the weight was on top when the tank was full. The construction is of the type common to the period known as balloon framing, with full height vertical 4x4 studs and 1x10 bevelchannel shiplap siding similar to that used on the Mansion. The board siding is not just to fill in the open sides, it is essential to the strength of the structure, as there is no cross bracing such as is used with an open tower tank support. About 3600 board feet of virgin redwood was used to build the structure, which originally had at most only three openings in the sides: a door, a window and an exit hole for a stovepipe.

Originally located near the corral, some 75 ft south of its second location (it was moved north so the south half of the original Mansion grounds could be developed into the Mansion Square retail building), the Tank House water system served the entire Mansion property as was typical of large urban properties. Unlike utilitarian rural or farm tank houses, it was decorated with Gothic medallions on each of the four sides (one has been destroyed, and a second one damaged by cutting part of it away to put in an air conditioner during the first adaptive reuse), and given a fancy cornice to match the Italianate house. Since tank houses were enclosed structures, the lower level especially was convenient for use for storage or sometimes even for basic housing for a servant.

 The Mansion Grounds
Originally the Mansion property occupied four lots of the Town History original Davisville town layout, or nearly a quarter block.  The main rooms of the Mansion, including the two front parlors, were oriented toward 2nd Street and eastward toward the orange trees in the form of two bay windows  unusual for even a house of that size to enjoy the gardens. The house turns its back on E St.; the back porch faces that way, where the cistern (the round brick thingy) for storing rain water runoff from the house roof is located (even early Davisville had some environmentally friendly or sustainable ways of doing things!). The cistern would have had a large hand pump mounted on top. (Soft rain water was preferred to hard well water for laundering fine linens, washing glassware, etc., the water would have been screened but also usually boiled first, since it came off the roof  think pigeons.)

Water for the trees & gardens were supplied from the Tank House by two fire hydrants hydrants, one on each side of the Mansion. Having the tank mounted on top of the twostory high structure provided enough water pressure for the system to be capable of supplying water to the 2nd floor of the house as well. An 1899 ad for the property described the water pipes throughout grounds and house as a prominent feature; in short, a stateoftheart Victorian era water supply system.

Before the city water system was built, the residential areas of old downtown Davis at one time had about a dozen such urban tank houses with windmill pumps. (In 1911 there were 32 elevated tanks, 18 tank houses, 15 of them at residences, the remainder of the tanks on open frame tank stands.) Although all the largest Davis residences had a tank house, only one other besides the Mansion Tank House remains in town proper, the much later (c. 1925) rather plain Barovetto tank house (209 2nd Street), which has been significantly altered and remodeled into a residence (see below).

When moved from its original location in 1978, the Tank House was essentially intact, except for some damage of the lower edge due to rot from bad drainage. About 11/2 to 2 rows of siding and the bottom of the studs were removed when it was installed on a raised concrete slab at the present site. The current lamentable state of the Mansion Tank House is the result of badly executed adaptive reuse projects that allowed water to seep into the walls, causing rot to the lower parts of the studs and siding, followed by ten years of neglect and lack of maintenance or repair while owned by the City of Davis. The 2000 city condemnation for occupancy was based on a structural engineers report that principally addressed the potential hazard of occupying the second floor (added in 1978, not part of the original structure or use), as an office. Ironically, Davis City Code 40.23.180 requires the owner or person in charge of a designated historical resource to keep it in good repair to prevent deterioration or decay that threatens the structural, or historical integrity of the resource.

Construction of the Mansion Square retail building south of the Mansion required clearing over half of the original grounds, including removal of 34 trees (walnut, almond, lime, cherry, orange, fig). A city Landmark Tree, the huge Digger Pine that used to be near the Mansion Square entry sign on E Street was saved.

The parcel of land the Tank House recently vacated, is not a separate parcel from the Mansion, it is an integral part of the Mansion property and grounds, which also included 10 of the last 13 trees.  The trees were over100yearold orange trees (the trees were part of the gardens, not an agricultural operation; the oldest 25 were probably planted by the Stelling family around 1888, additional ones were planted by the Hunt family sometime before 1906.)

It is a false distinction to say that the Tank House and the former orange trees are not listed, as is sometimes recently asserted by those who have perhaps failed to investigate the history of the landmark designation. The fruit trees, tank house, cistern and gardens were cited as important parts of the significance and setting of the Mansion in the documentation that was submitted to qualify the complex for listing on the National Register of Historic Places (Building #76000540), for the State database, and accepted as the description for the City designation as a Landmark Historic Resource. Consequently, these auxiliary and supporting features were integral features of the Landmark, specifically of the supporting historical context and site for the Mansion building which add to the ability of the Landmark as a whole to convey its importance, i.e. why it was worth designation as a landmark.

 What does the Future hold for the Tank House?

The City of Davis Request for Proposals for use of the Varsity Theatre included an option to submit a project proposal for the brick patio area occupied by the orange trees and Tank House and/or the Mansion itself.  The winning proposal for the Theatre, by Novakovic and Fenske, included a proposal by Mishkas Cafe owner Sinisa Novakovic to build a new 3story building occupying the brick patio where the Tank House is located (essentially the whole area inside the green metal fence, from the west wall of the Varsity to the brick walkway next to the Mansion.) The Mansion itself and the rest of the gardens were not included in this proposal.

The proposed building would house a new Mishkas Cafe on the ground floor and two floors of office space. The City had entered an exclusive negotiating agreement with Novakovic for this project. http://media.www.californiaaggie.com/media/storage/paper981/news/2007/07/26/CityNews/CityConsiders.Development.On.Tank.House.Site2927394.shtml California Aggie article

The Davis Historical Resources Management Commission ruled that the proposed building project, which would require the removal or relocation on or off site of the Tank House (among other probable impacts) was likely to cause a significant impact on the Mansion Landmark, by removing contributing auxiliary features and eliminating a substantial part of the original context (open space, landscaping, siting). This required that an EIR be prepared. The http://www.cityofdavis.org/cdd/MishkaCafe/ EIR will also assess possible impact to the Varsity (also a city Landmark, and eligible for national listing) of the proposed 3 story building project, which would directly abut and be as high as the west wall of the theatre, which has been the tallest structure on the block for 50 years.

An Initial Study, historic review, and public scoping meeting for the project EIR were completed on July 14, 2006. The next stage was the Draft EIR, which included alternative projects in addition to the proposed office building. On July 25, 2006 the City Council voted 41 to renew the negotiating agreement for the proposed building project, and to add to the EIR a more complete evaluation (than that technically required by CEQA) of some of the alternative projects developed in the Initial Study, mainly as concerning possibilities of rehabilitating the Tank House on site, either in its location east of the mansion, or moving it on site to the west side of the Mansion. The Draft EIR was developed and followed by a 45day comment period. Interested parties contacted Ken Hiatt at the City Planning Dept., who is in charge of EIR preparation.

Ultimately, Clyde and Katie Kelly of Impossible Acres bought the Tank House from the city for $11. Read the full story http://www.davisenterprise.com/localnews/city/tankhousemoveplannedforfriday/ here.  It was moved by the City in two parts on August 5, 2011.

 Some Facts

The Tank House patio area is not now and has never been a separate parcel from the rest of the Mansion property. Source: official Parcel Map and public records back to 1868.

The Tank House was moved to its present location before the Davis Historical Ordinance was adopted. Therefore, the fact that moving a historic structure OFF site (which the Tank House wasnt) now constitutes the equivalent of demolition under CEQA (because of the local ordinance) was not applicable at the time. Further, the local City of Davis Landmark designation of the Mansion property took place with the Tank House in its present location (and incidentally, the same number of orange trees now existing, or possibly just one more). As recognized by the Historical Evaluation consultant report, this constituted recognition that the prior move of the Tank House did not affect its significance as a component of the Landmark. (The consultants opinion that the orange trees do not retain their significance does not substantially affect the overall possible impact of the project for other reasons. The consultant report also stated that the trees might retain significance of some type due to local ordinance, new information, etc.)

In addition, the Davis Historical Resources Commission has twice ruled that the Tank House in its present location is a significant contributing element of the Mansion Landmark, hence for the purposes of the EIR, under CEQA, the prior move of the Tank House is irrelevant. The only questions for the EIR concerning the Tank House itself (on which the Historical Evaluation study has already commented) are 1) whether moving the Tank House on site would have significant impact on the Landmark property, or 2) whether moving the Tank House off site would. (The answer was 1. possibly, required analysis of specific alternate project and 2. yes, it would; it would also impact the significance of the Tank House itself, and if moved to another historic property  as has been suggested previously  it would impact and/or impair the integrity of that site.)

However, the EIR is not primarily about the Tank House and what to do or not do to it. It is to evaluate the impacts of the proposed cafe/office building on the DresbachHuntBoyer Mansion Landmark (which legally, under CEQA, includes its context, site, auxialiary/supporting structures and features: this is an established fact, not an opinion), and the adjacent City (local) Landmark Varsity Theatre (its site, context, etc.)  Had it not been already formally established (in a public hearing before the HRMC, and in the Initial Study, etc.) that the proposed project would likely have a significant impact under CEQA on both of the Landmark properties (the Varsity Theatre and the Mansion Complex), both by inserting a new building between the two major landmark structures, and by removing significant contributing components of the latter, there would be no necessity for an EIR to evaluate those impact(s) and impacts of alternative projects (including moving the Tank House on site). The Draft EIR (DEIR) on the project is expected to be released in July 2007, followed by a 45 day public comment period and a hearing before the Historic Resources Management Commission. (Check the City web site for news or contact Ken Hiatt at Community Development.) A final EIR (FEIR) will then be prepared, with more hearings, with a final decision by the City Council at the end of the process.

 Sources & More info.
  20060726 Davis Enterprise, Tankhouse will get a fuller EIR

   Better sources: the EIR Initial Study, the Historical Evaluation, the comments submitted on the Scoping and Initial Study, and the records of the various public hearings and decisions on this matter, back to 1976.
  There is currently a group dedicated to preserving the orange tree grove, called SO HOT!

 Ricci Tank House

This tank house once supplied water for the animals and crops of the Ricci Farm in South Davis.  It would have drawn water (probably by windmill power) from the adjacent north fork of Putah Creek, which used to be the main flow of the creek until it was diverted in 1948.

Today it stands watch over the Putah Creek Greenbelt.

 Barovetto Tank House  209 2nd Street

This plain tank house has been remodeled into a small house. Unlike the DresbachHuntBoyer tank house, where the tank probably sat on an open deck, the top level where the tank was located in this tank house may have had a roof and been enclosed originally, or or it may have completely enclosed at some later time to make a room. Davis had both styles. The heavy timber tank deck supporting the tank would have been where the profile of the sides goes from sloping to straight up, where the floor of the third story is now. The windmill (the pump) could have either been attached to the side of the top story or located on its own open timber tower beside it, with the water line running overhead from the windmill tower to the tank. The Barovetto Tank House is a City of Davis designated Historic Merit Resource Historic Places Historic Place. The Tank House and adjacent residence (also a Historic Merit Resource) is associated with Giovanni Barovetto, an early employee of the University Viticultural Department.

 See also
To learn more about Davis history, please visit our pages of Historic Places, Town History and Davis Timeline.
  Historic Places
  DresbachHuntBoyer House

20060212 14:15:07 nbsp While Im not a Davis oldtimer, I wonder why they suddenly started calling the downtown house the Tank House everyone at the city (and the Varsity) always seemed to call it the pump house that made sense; it seems to have contained pumps, not tanks (unlike the real tankhouse).  Im not going to miss the pump house.  Its position looks rather contrived (because it is), and its obviously falling apart.  If it is transformed into a multiuse retail center, this might be good for bringing more business to that strech of 2nd St.  However, it looks like the owner of Mishkas is taking a lead in the project. One wonders whether or not this will be Mishkas #2 (that perhaps takes credit cards!?) or perhaps Mishkas just wants to move into a larger space but stay in the same basic location? Users/JaimeRaba

20060810 19:13:22 nbsp DavisExile and others have introduced a number of factual errors under the heading of removing bias, etc. Errors include attributing to Historical Preservationists established legal facts about the socalled parcel, the significance or lack thereof under CEQA of moving the Tank House, and the current EIR process, among a number of other things. (Interesting to attribute material that one doesnt have the facts on to Historical Preservationists, which suggests bias in the editor) Users/ValerieVann

20060810 21:04:13 nbsp It was not my purpose to get into a discussion of the Mishkas Cafe project here (and on the auxiliary Mansion page),  but to present to the best of my ability in a factual manner the history of the Tank House to date. based on nearly two years of research on the Mansion Complex, including the public record, city files, etc. If there are errors of FACT in what I have written, then I would appreciate corrections, provided the editor can supply references or sources upon which the correction is based, so that I can incorporate those sources into my research. Users/ValerieVann
     Valerie: traditionally when an edit is disputed the discussion occurs before changing it back... somebody might revert the changes youve made.  If that happens, its likely an editor looking to restore the disputed sections so they can be individually discussed before they are changed.  You are certainly right in questioning an edit that does not jibe with the research youve done, but it is also important to approach such questioning in a manner that invites discussion rather than simply back and forth edits.  I personally cant speak on the topic of the Tank House  I dont know whats fact and what isnt... Im just posting this to try and help foster communication and a better entry.  You might want to question the disputed edits (rather than just wiping them out) and give Users/DavisExile a chance to respond.  Youve written an excellent entry, the only question is whether an alternate viewpoint has any basis in fact and history.  If there is a body of thought that you dont agree with that is factually plausible (or even an urban legend or common misconception), it deserves a mention in the entry (qualified as urban legend or misconception if it is one).  It sounds like youve done the research, so hear DavisExile out: we dont know what his background and sources are.  Users/JabberWokky jw
      JW: If there was discussion of previous edits, or more important, the basis for them, I never saw it. My comment above is an invitation to supply the basis for the edits that were made. My initial contribution to this page was clearly to counter some erroneous urban legends or whatever with facts, and I think the manner that was done indicated that purpose. I have expanded on the basis for what I previously wrote. I didnt (and dont) think it particularly appropriate to cite chapter and verse of the applicable legislation, etc. here, as the material was intended as background for a more general audience. However, if Users/DavisExile wants to provide the factual basis for his opinions, or indicate clearly that they are opinion or legend and differentiate his material from mine so that the respective authors are clear to the reader, my comment was an invitation to do so. Meanwhile, I dont think the present public discussion of issues concerning one of the citys few landmarks is well served by having erroneous material here, or a mixture of information and misinformation, even though most of us know the Wikis arent the place to find reliable information. Users/ValerieVann
           The papers my fiance grades  and the SacBee and the Enterprise  beg to differ on that last point; Wikis are too often cited in many works without consideration to version and author.  This is the top return for Google when searching for Davis Tank House.  As for your very first point, adding information is an easier contested edit than removal (since the new information is sitting there for review), and he made sure his edits were in parallel to yours (in fact, if you go through the revision history, youll see his initial edit deleted or negated several of your points and myself and other editors suggested he not do that and instead present additional information rather than deleting yours  I personally even reverted his entire first set of changes: see edit number 62).  His edit was questioned and subjected to review, although you werent here to be an expert on the facts.  Now youre doing the same thing he was chided for: removing a viewpoint (in this case his) without allowing for debate.  In the end, its up to you... but I would highly suggest that if somebody reverts your edit here (as I did with DavisExiles first edit), you consider responding to his edits rather than simply deleting them. Users/JabberWokky jw

20061128 13:16:47 nbsp I am particularly interested in info on the Barovetto Tank House, particularly because I live there and have never heard of it being called Barovetto.  Any more historic info would be nice to know.  Does the Barovetto name have anything to do with a family name?  I saw that there is a Barovetto recognized on a memorial for Vietnam.  There is a small piece of cement breaking off the front porch that says 1925. BTW the address is wrong.  Its actually 209 1/2 2nd street. Users/HeatherWitt

20071128 23:37:33 nbsp Does anyone remember the name of the cafe/bistro that was run out of the tank house in 1994 or 1995?  Recall that they had a small amount of seating among the orange trees.   Users/swanson

20090526 14:05:36 nbsp Sign a petition to save the orange trees from the Mishkas development: WWWhttp://www.PetitionOnline.com/SOHOT/ Users/RainbowVogt

20100701 15:57:11 nbsp I have to wonder how many hundreds of thousands of dollars were spent moving and strengthening this ugly and useless (to my mind and many others) structure.  Not every artifact needs to be preserved.  There needs to be more common sense in the spending of scarce city money.   Users/JimStewart

20110609 12:29:12 nbsp How long will the tank house sit behind the temporary fence, wrapped in temporary tarps? As is it is an eyesore and an embarrassment to the city government, which maintains offices in the Dreisbach Mansion next door. Could it be time to follow through, take the fence down, remove the tarps and permanently place the tank house in its new location. Otherwise the investment of hundreds of thousands of dollars will be wasted. Users/RaoulDuke


text:
Address(West Oakside Place) is a residential Culdesacs culdesac in South Davis.

 Intersecting Streets

  Oakside Drive and across the intersection East Oakside Place


text:
!=======================================================================
! Created by
!     Keurfon Luu <keurfon.luu@mines-paristech.fr>
!     MINES ParisTech - Centre de Géosciences
!     PSL - Research University
!=======================================================================

program optimization

  use forlab, only: IPRE, RPRE, CLEN, split_argument, num2str, rng
  use benchmark_functions, only: BenchmarkFunction
  use stochoptim, only: Evolutionary
#ifdef do_mpi
  use mpi
#endif

  implicit none

  ! Inputs
  integer(kind = IPRE) :: n_dim, popsize, max_iter, seed, verbose
  real(kind = RPRE) :: w, c1, c2, gamma, F, CR, sigma, mu_perc
  character(len = :), allocatable :: solver, strategy, func

  ! Local variables
  character(len = 18) :: attributes
  type(Evolutionary) :: ea
  type(BenchmarkFunction) :: bf

  ! MPI variables
  integer(kind = IPRE) :: master = 0, rank, ierr, iprv

  ! Initialize MPI
#ifdef do_mpi
  call mpi_init_thread(mpi_thread_funneled, iprv, ierr)
  call mpi_comm_rank(mpi_comm_world, rank, ierr)
#else
  rank = 0
#endif

  ! Read command line arguments
  call command_arguments()

  ! Initialize random number generator
  if ( seed .ge. 0 ) then
    call rng(seed)
  else
    call rng()
  end if

  ! Optimize
  bf = BenchmarkFunction(func, n_dim)
  ea = Evolutionary(bf % func, bf % lower, bf % upper, &
                    popsize = popsize, max_iter = max_iter, &
                    constrain = .true., snap = .false., verbose = verbose)

  call ea % optimize(&
    solver = solver, &
    w = w, &
    c1 = c1, &
    c2 = c2, &
    gamma = gamma, &
    F = F, &
    CR = CR, &
    strategy = strategy, &
    sigma = sigma, &
    mu_perc = mu_perc)

  ! Display results
  if ( rank .eq. master ) then
    print *
    attributes = "function:"
    print *, adjustr(attributes) // " '" // trim(func) // "'"
    call ea % print()
    print *
  end if

#ifdef do_mpi
  call mpi_finalize(ierr)
#endif

contains

  subroutine command_arguments()
    integer(kind = IPRE) :: i, n_argin
    character(len = CLEN) :: argin
    character(len = :), allocatable :: argname, argval

    solver = "cpso"
    func = "sphere"
    n_dim = 2
    popsize = 16
    w = 0.7298
    c1 = 1.49618
    c2 = 1.49618
    gamma = 1.
    F = 0.5
    CR = 0.1
    strategy = "rand1"
    sigma = 0.5
    mu_perc = 0.5
    max_iter = 200
    seed = -1
    verbose = 0

    n_argin = command_argument_count()
    do i = 1, n_argin
      call get_command_argument(i, argin)
      call split_argument(argin, argname, argval)

      select case(argname)
      ! Number of dimensions
      case("n_dim")
        read(argval, *) n_dim

      ! Solver
      case("solver")
        solver = argval

      ! Function
      case("func")
        func = argval

      ! Population size
      case("popsize")
        read(argval, *) popsize

      ! Inertia weight
      case("w")
        read(argval, *) w

      ! Cognition parameter
      case("c1")
        read(argval, *) c1

      ! Sociability parameter
      case("c2")
        read(argval, *) c2

      ! Competitivity parameter
      case("gamma")
        read(argval, *) gamma

      ! Differential weight
      case("F")
        read(argval, *) F

      ! Crossover probability
      case("CR")
        read(argval, *) CR

      ! Strategy
      case("strategy")
        strategy = argval

      ! Step size
      case("sigma")
        read(argval, *) sigma

      ! Percentage of offsprings
      case("mu_perc")
        read(argval, *) mu_perc

      ! Maximum number of iterations
      case("max_iter")
        read(argval, *) max_iter

      ! Random number seed
      case("seed")
        read(argval, *) seed

      ! Verbosity
      case("verbose")
        read(argval, *) verbose

      case default
        print *, "Error: unknown argument '" // trim(argname) // "'"
        stop
      end select
    end do
    return
  end subroutine command_arguments

end program optimization

max_stars_repo_name: keurfonluu/StochOptim

max_issues_repo_name: eachonly/StochOptim

max_forks_repo_name: eachonly/StochOptim


text:
      subroutine stress(iz)
!***********************************************************************
!  Copyright, 2004,  The  Regents  of the  University of California.
!  This program was prepared by the Regents of the University of
!  California at Los Alamos National Laboratory (the University) under
!  contract No. W-7405-ENG-36 with the U.S. Department of Energy (DOE).
!  All rights in the program are reserved by the DOE and the University.
!  Permission is granted to the public to copy and use this software
!  without charge, provided that this Notice and any statement of
!  authorship are reproduced on all copies. Neither the U.S. Government
!  nor the University makes any warranty, express or implied, or
!  assumes any liability or responsibility for the use of this software.
C**********************************************************************
CD1
CD1 PURPOSE
CD1
CD1 To provide a blank routine that returns without doing anything (for
CD1 compatability with other versions of FEHM).
CD1
C**********************************************************************
CD2
CD2 REVISION HISTORY
CD2
CD2 Revision                    ECD
CD2 Date         Programmer     Number  Comments
CD2
CD2 11-5-93      B. Robinson    00022   Initial implementation.
CD2
CD2 $Log:   /pvcs.config/fehm90/src/stress.f_a  $
!D2
!D2    Rev 2.5   06 Jan 2004 10:44:02   pvcs
!D2 FEHM Version 2.21, STN 10086-2.21-00, Qualified October 2003
!D2
!D2    Rev 2.4   29 Jan 2003 09:17:34   pvcs
!D2 FEHM Version 2.20, STN 10086-2.20-00
!D2
!D2    Rev 2.3   14 Nov 2001 13:14:56   pvcs
!D2 FEHM Version 2.12, STN 10086-2.12-00
!D2
!D2    Rev 2.2   06 Jun 2001 13:27:12   pvcs
!D2 FEHM Version 2.11, STN 10086-2.11-00
!D2
!D2    Rev 2.1   30 Nov 2000 12:10:46   pvcs
!D2 FEHM Version 2.10, STN 10086-2.10-00
!D2
!D2    Rev 2.0   Fri May 07 14:46:14 1999   pvcs
!D2 FEHM Version 2.0, SC-194 (Fortran 90)
CD2
CD2    Rev 1.1   03/18/94 16:08:56   gaz
CD2 Added solve_new and cleaned up memory management.
CD2
CD2    Rev 1.0   01/20/94 10:28:26   pvcs
CD2 original version in process of being certified
CD2
C**********************************************************************
CD3
CD3 INTERFACES
CD3
CD3 Formal Calling Parameters
CD3
CD3 Identifier     Type    Use      Description
CD3
CD3 iz             int      I       Dummy calling parameter
CD3
CD3 Interface Tables
CD3
CD3 None
CD3
CD3 Files
CD3
CD3 None
CD3
C**********************************************************************
CD4
CD4 GLOBAL OBJECTS
CD4
CD4 Global Constants
CD4
CD4 None
CD4
CD4 Global Types
CD4
CD4 None
CD4
CD4 Global Variables
CD4
CD4 None
CD4
CD4 Global Subprograms
CD4
CD4 None
CD4
C**********************************************************************
CD5
CD5 LOCAL IDENTIFIERS
CD5
CD5 Local Constants
CD5
CD5 None
CD5
CD5 Local Types
CD5
CD5 None
CD5
CD5 Local Variables
CD5
CD5 None
CD5
CD5 Local Subprograms
CD5
CD5 None
CD5
C**********************************************************************
CD6
CD6 FUNCTIONAL DESCRIPTION
CD6
CD6 N/A
CD6
C**********************************************************************
CD7
CD7 ASSUMPTIONS AND LIMITATIONS
CD7
CD7 None
CD7
C**********************************************************************
CD8
CD8 SPECIAL COMMENTS
CD8
CD8 This routine's function is only to provide compatability with
CD8 versions of the code that compute a stress solution.
CD8
C**********************************************************************
CD9
CD9 REQUIREMENTS TRACEABILITY
CD9
CD9 N/A
CD9
C**********************************************************************
CDA
CDA REFERENCES
CDA
CDA See FEHMN SRS, MMS, and SDD
CDA
C**********************************************************************
CPS
CPS PSEUDOCODE
CPS
CPS BEGIN stress
CPS
CPS
CPS END stress
CPS
C**********************************************************************

      implicit none
      integer iz

      return
      end

max_stars_repo_name: satkarra/FEHM

max_issues_repo_name: satkarra/FEHM

max_forks_repo_name: satkarra/FEHM