MODULE saprc99_mosaic_4bin_vbs9_Parameters
  USE saprc99_mosaic_4bin_vbs9_Precision
  PUBLIC
  SAVE
  INTEGER, PARAMETER :: NSPEC = 170
  INTEGER, PARAMETER :: NVAR = 168
  INTEGER, PARAMETER :: NVARACT = 141
  INTEGER, PARAMETER :: NFIX = 2
  INTEGER, PARAMETER :: NREACT = 351
  INTEGER, PARAMETER :: NVARST = 1
  INTEGER, PARAMETER :: NFIXST = 169
  INTEGER, PARAMETER :: NONZERO = 1387
  INTEGER, PARAMETER :: LU_NONZERO = 1472
  INTEGER, PARAMETER :: CNVAR = 169
  INTEGER, PARAMETER :: NLOOKAT = 0
  INTEGER, PARAMETER :: NMONITOR = 0
  INTEGER, PARAMETER :: NMASS = 1
  REAL(kind=dp), PARAMETER :: PI = 3.14159265358979
  INTEGER, PARAMETER :: ind_H2SO4 = 1
  INTEGER, PARAMETER :: ind_CO2 = 2
  INTEGER, PARAMETER :: ind_PCG1_B_C = 3
  INTEGER, PARAMETER :: ind_PCG1_B_O = 4
  INTEGER, PARAMETER :: ind_PCG1_F_C = 5
  INTEGER, PARAMETER :: ind_PCG1_F_O = 6
  INTEGER, PARAMETER :: ind_HCOOH = 7
  INTEGER, PARAMETER :: ind_CCO_OH = 8
  INTEGER, PARAMETER :: ind_RCO_OH = 9
  INTEGER, PARAMETER :: ind_CCO_OOH = 10
  INTEGER, PARAMETER :: ind_RCO_OOH = 11
  INTEGER, PARAMETER :: ind_XN = 12
  INTEGER, PARAMETER :: ind_XC = 13
  INTEGER, PARAMETER :: ind_NUME = 14
  INTEGER, PARAMETER :: ind_DEN = 15
  INTEGER, PARAMETER :: ind_ANT1_c = 16
  INTEGER, PARAMETER :: ind_ANT2_c = 17
  INTEGER, PARAMETER :: ind_ANT3_c = 18
  INTEGER, PARAMETER :: ind_ANT4_c = 19
  INTEGER, PARAMETER :: ind_ANT1_o = 20
  INTEGER, PARAMETER :: ind_ANT2_o = 21
  INTEGER, PARAMETER :: ind_ANT3_o = 22
  INTEGER, PARAMETER :: ind_ANT4_o = 23
  INTEGER, PARAMETER :: ind_BIOG1_c = 24
  INTEGER, PARAMETER :: ind_BIOG2_c = 25
  INTEGER, PARAMETER :: ind_BIOG3_c = 26
  INTEGER, PARAMETER :: ind_BIOG4_c = 27
  INTEGER, PARAMETER :: ind_BIOG1_o = 28
  INTEGER, PARAMETER :: ind_BIOG2_o = 29
  INTEGER, PARAMETER :: ind_BIOG3_o = 30
  INTEGER, PARAMETER :: ind_BIOG4_o = 31
  INTEGER, PARAMETER :: ind_PSD1 = 32
  INTEGER, PARAMETER :: ind_PSD2 = 33
  INTEGER, PARAMETER :: ind_OPCG1_B_O = 34
  INTEGER, PARAMETER :: ind_PCG2_B_O = 35
  INTEGER, PARAMETER :: ind_OPCG2_B_O = 36
  INTEGER, PARAMETER :: ind_PCG3_B_O = 37
  INTEGER, PARAMETER :: ind_OPCG3_B_O = 38
  INTEGER, PARAMETER :: ind_PCG4_B_O = 39
  INTEGER, PARAMETER :: ind_OPCG4_B_O = 40
  INTEGER, PARAMETER :: ind_PCG5_B_O = 41
  INTEGER, PARAMETER :: ind_OPCG5_B_O = 42
  INTEGER, PARAMETER :: ind_PCG6_B_O = 43
  INTEGER, PARAMETER :: ind_OPCG6_B_O = 44
  INTEGER, PARAMETER :: ind_PCG7_B_O = 45
  INTEGER, PARAMETER :: ind_OPCG7_B_O = 46
  INTEGER, PARAMETER :: ind_PCG8_B_O = 47
  INTEGER, PARAMETER :: ind_OPCG8_B_O = 48
  INTEGER, PARAMETER :: ind_PCG9_B_O = 49
  INTEGER, PARAMETER :: ind_OPCG1_F_O = 50
  INTEGER, PARAMETER :: ind_PCG2_F_O = 51
  INTEGER, PARAMETER :: ind_OPCG2_F_O = 52
  INTEGER, PARAMETER :: ind_PCG3_F_O = 53
  INTEGER, PARAMETER :: ind_OPCG3_F_O = 54
  INTEGER, PARAMETER :: ind_PCG4_F_O = 55
  INTEGER, PARAMETER :: ind_OPCG4_F_O = 56
  INTEGER, PARAMETER :: ind_PCG5_F_O = 57
  INTEGER, PARAMETER :: ind_OPCG5_F_O = 58
  INTEGER, PARAMETER :: ind_PCG6_F_O = 59
  INTEGER, PARAMETER :: ind_OPCG6_F_O = 60
  INTEGER, PARAMETER :: ind_PCG7_F_O = 61
  INTEGER, PARAMETER :: ind_OPCG7_F_O = 62
  INTEGER, PARAMETER :: ind_PCG8_F_O = 63
  INTEGER, PARAMETER :: ind_OPCG8_F_O = 64
  INTEGER, PARAMETER :: ind_PCG9_F_O = 65
  INTEGER, PARAMETER :: ind_PCG2_B_C = 66
  INTEGER, PARAMETER :: ind_PCG3_B_C = 67
  INTEGER, PARAMETER :: ind_PCG4_B_C = 68
  INTEGER, PARAMETER :: ind_PCG5_B_C = 69
  INTEGER, PARAMETER :: ind_PCG6_B_C = 70
  INTEGER, PARAMETER :: ind_PCG7_B_C = 71
  INTEGER, PARAMETER :: ind_PCG8_B_C = 72
  INTEGER, PARAMETER :: ind_PCG9_B_C = 73
  INTEGER, PARAMETER :: ind_OPCG1_B_C = 74
  INTEGER, PARAMETER :: ind_OPCG2_B_C = 75
  INTEGER, PARAMETER :: ind_OPCG3_B_C = 76
  INTEGER, PARAMETER :: ind_OPCG4_B_C = 77
  INTEGER, PARAMETER :: ind_OPCG5_B_C = 78
  INTEGER, PARAMETER :: ind_OPCG6_B_C = 79
  INTEGER, PARAMETER :: ind_OPCG7_B_C = 80
  INTEGER, PARAMETER :: ind_OPCG8_B_C = 81
  INTEGER, PARAMETER :: ind_PCG2_F_C = 82
  INTEGER, PARAMETER :: ind_PCG3_F_C = 83
  INTEGER, PARAMETER :: ind_PCG4_F_C = 84
  INTEGER, PARAMETER :: ind_PCG5_F_C = 85
  INTEGER, PARAMETER :: ind_PCG6_F_C = 86
  INTEGER, PARAMETER :: ind_PCG7_F_C = 87
  INTEGER, PARAMETER :: ind_PCG8_F_C = 88
  INTEGER, PARAMETER :: ind_PCG9_F_C = 89
  INTEGER, PARAMETER :: ind_O1D = 90
  INTEGER, PARAMETER :: ind_OPCG1_F_C = 91
  INTEGER, PARAMETER :: ind_OPCG2_F_C = 92
  INTEGER, PARAMETER :: ind_OPCG3_F_C = 93
  INTEGER, PARAMETER :: ind_OPCG4_F_C = 94
  INTEGER, PARAMETER :: ind_OPCG5_F_C = 95
  INTEGER, PARAMETER :: ind_OPCG6_F_C = 96
  INTEGER, PARAMETER :: ind_OPCG7_F_C = 97
  INTEGER, PARAMETER :: ind_OPCG8_F_C = 98
  INTEGER, PARAMETER :: ind_CH4 = 99
  INTEGER, PARAMETER :: ind_SO2 = 100
  INTEGER, PARAMETER :: ind_C2H6 = 101
  INTEGER, PARAMETER :: ind_PAN2 = 102
  INTEGER, PARAMETER :: ind_MA_PAN = 103
  INTEGER, PARAMETER :: ind_PAN = 104
  INTEGER, PARAMETER :: ind_PBZN = 105
  INTEGER, PARAMETER :: ind_H2O2 = 106
  INTEGER, PARAMETER :: ind_C3H8 = 107
  INTEGER, PARAMETER :: ind_ETOH = 108
  INTEGER, PARAMETER :: ind_BACL = 109
  INTEGER, PARAMETER :: ind_N2O5 = 110
  INTEGER, PARAMETER :: ind_HONO = 111
  INTEGER, PARAMETER :: ind_ALK5 = 112
  INTEGER, PARAMETER :: ind_ALK3 = 113
  INTEGER, PARAMETER :: ind_TBU_O = 114
  INTEGER, PARAMETER :: ind_ARO2 = 115
  INTEGER, PARAMETER :: ind_COOH = 116
  INTEGER, PARAMETER :: ind_HOCOO = 117
  INTEGER, PARAMETER :: ind_BZNO2_O = 118
  INTEGER, PARAMETER :: ind_HNO4 = 119
  INTEGER, PARAMETER :: ind_MEOH = 120
  INTEGER, PARAMETER :: ind_ARO1 = 121
  INTEGER, PARAMETER :: ind_DCB2 = 122
  INTEGER, PARAMETER :: ind_DCB3 = 123
  INTEGER, PARAMETER :: ind_CRES = 124
  INTEGER, PARAMETER :: ind_ALK4 = 125
  INTEGER, PARAMETER :: ind_C2H2 = 126
  INTEGER, PARAMETER :: ind_DCB1 = 127
  INTEGER, PARAMETER :: ind_NPHE = 128
  INTEGER, PARAMETER :: ind_ROOH = 129
  INTEGER, PARAMETER :: ind_BALD = 130
  INTEGER, PARAMETER :: ind_PHEN = 131
  INTEGER, PARAMETER :: ind_MGLY = 132
  INTEGER, PARAMETER :: ind_CO = 133
  INTEGER, PARAMETER :: ind_HNO3 = 134
  INTEGER, PARAMETER :: ind_ETHENE = 135
  INTEGER, PARAMETER :: ind_ACET = 136
  INTEGER, PARAMETER :: ind_C3H6 = 137
  INTEGER, PARAMETER :: ind_BZ_O = 138
  INTEGER, PARAMETER :: ind_OLE1 = 139
  INTEGER, PARAMETER :: ind_ISOPRENE = 140
  INTEGER, PARAMETER :: ind_R2O2 = 141
  INTEGER, PARAMETER :: ind_METHACRO = 142
  INTEGER, PARAMETER :: ind_SESQ = 143
  INTEGER, PARAMETER :: ind_TERP = 144
  INTEGER, PARAMETER :: ind_GLY = 145
  INTEGER, PARAMETER :: ind_ISOPROD = 146
  INTEGER, PARAMETER :: ind_OLE2 = 147
  INTEGER, PARAMETER :: ind_MVK = 148
  INTEGER, PARAMETER :: ind_CCHO = 149
  INTEGER, PARAMETER :: ind_HCHO = 150
  INTEGER, PARAMETER :: ind_RNO3 = 151
  INTEGER, PARAMETER :: ind_O3P = 152
  INTEGER, PARAMETER :: ind_RCHO = 153
  INTEGER, PARAMETER :: ind_MEK = 154
  INTEGER, PARAMETER :: ind_PROD2 = 155
  INTEGER, PARAMETER :: ind_O3 = 156
  INTEGER, PARAMETER :: ind_NO3 = 157
  INTEGER, PARAMETER :: ind_RO2_N = 158
  INTEGER, PARAMETER :: ind_MA_RCO3 = 159
  INTEGER, PARAMETER :: ind_NO = 160
  INTEGER, PARAMETER :: ind_HO2 = 161
  INTEGER, PARAMETER :: ind_RCO_O2 = 162
  INTEGER, PARAMETER :: ind_CCO_O2 = 163
  INTEGER, PARAMETER :: ind_BZCO_O2 = 164
  INTEGER, PARAMETER :: ind_OH = 165
  INTEGER, PARAMETER :: ind_RO2_R = 166
  INTEGER, PARAMETER :: ind_NO2 = 167
  INTEGER, PARAMETER :: ind_C_O2 = 168
  INTEGER, PARAMETER :: ind_H2O = 169
  INTEGER, PARAMETER :: ind_M = 170
  INTEGER, PARAMETER :: indf_H2O = 1
  INTEGER, PARAMETER :: indf_M = 2
END MODULE saprc99_mosaic_4bin_vbs9_Parameters


text:
Welcome to the Wiki Wiki Enthusiast. Please also read the Welcome to the Wiki general welcome.

 1. We have a different set of goals and social norms than http://www.wikipedia.org wikipedia. Entries tend to be written in a more familiar style, and we generally encourage creative editing when it helps explain the content of a page. Youll note that opinions pervade the wiki: ultimately, we aim to integrate comments into the content of the article, but we also respect the power of comments in conveying how many people support one side of an issue.
 1. Our markup is also a little bit different, see wiki:wikispot:Help with Editing.
 1. We are not a neutral point of view (NPOV) wiki.  We think its good to establish and develop multiple points of view within the text of a page, rather than get lost in trying to enforce some arbitrary sense of neutrality.
 1. Talk pages are available, but tend not to be used very much.  Unless a big dispute is going on, its probably better to just ask a question on an article, or just edit the page and see what happens.
 1. As this is a locallyoriented website, we encourage original research from those who know best  firsthand observers.  We also try to keep the site Davisrelated, though some pages of interest outside the city are kept around.
 1. If you have content for something near Davis consider if it belongs on one of the nearby wikis; you can always use an interwiki link to from Davis Wiki to that page.  On the other hand, if it is is of interest to the Davis community (for instance, something not available in Davis that the people of Davis would travel for), or is strongly related to Davis (UC Davis fields and facilities outside Davis), it may well belong on the wiki with a Davis oriented perspective (directions, local relevance, etc).
 1. See the importance of using your RealName.
 1. You have to register an account to edit this wiki, because it allows us to build a stronger community than anonymous edits would bring.

ext: f

max_stars_repo_name: voflo/Search

max_issues_repo_name: voflo/Search

max_forks_repo_name: voflo/Search


! This demo program reads the naca6403_Re20k.csv and writes it to
! an output file naca6403_Re20k.C81. Both files are in the Samples/ directory.

program demo2

  use libC81
  implicit none

  integer, parameter :: rows = 19
  integer, parameter :: cols = 4
  integer, parameter :: nMach = cols-1
  integer :: i,j

  type(C81_class) :: C81
  real, dimension(rows,cols) :: A

  ! Read airfoil data from CSV file
  A=getTable('Samples/NACA6409.csv',rows,cols)

  ! Allocate arrays
  allocate(C81%MaL(nMach))
  allocate(C81%MaD(nMach))
  allocate(C81%MaM(nMach))
  allocate(C81%AL(rows-1))
  allocate(C81%AD(rows-1))
  allocate(C81%AM(rows-1))
  allocate(C81%CL(rows-1,nMach))
  allocate(C81%CD(rows-1,nMach))
  allocate(C81%CM(rows-1,nMach))

  ! Specify airfoil name
  C81%airfoilName = 'NACA6409'

  ! Copy values from read array to variables
  C81%MaL = A(1,2:)
  C81%MaD = C81%MaL
  C81%MaM = C81%MaL

  C81%AL = A(2:,1)
  C81%AD = C81%AL
  C81%AM = C81%AL

  do j=2,cols
    do i=2,rows
      C81%CL(i-1,j-1) = A(i,j)
    enddo
  enddo

  C81%CD = C81%CL
  C81%CM = C81%CL

  ! Write airfoil data to C81 file
  call c81%writefile('Samples/NACA6409.C81')

end program demo2


text:
! tree_find.f90 --
!    Include file for tree_struct.f90: "advanced" search routines
!
!    $Id: tree_find.f90,v 1.2 2006/03/26 19:05:48 arjenmarkus Exp $
!
! General information:
!    This file contains the following routines:
!    - tree_next_segment:     strip a segment from the search path
!    - tree_append_handles:   append to an array of nodes
!    - tree_find_descendants: find all nodes with a given name and type
!    - tree_find:             find all nodes given by a path
!

! tree_next_segment --
!    Strip a segment from the search path
!
! Arguments:
!    path         Full path (or partially stripped)
!    segment      First segment in the path or nothing
! Result:
!    The first segment (that is a non-empty string between /'s) is
!    returned in the argument "segment", the path is updated
!    For instance:
!    //A/B/C ==> segment=A, new path=B/C
!
subroutine tree_next_segment( path, segment )
   character(len=*), intent(inout) :: path
   character(len=*), intent(out)   :: segment

   integer :: idx
   !
   ! Strip off any leading slashes first
   !
   do while ( path(1:1) == '/' )
      path(1:) = path(2:)
   enddo

   !
   ! Find the next segment
   !
   idx = index( path, '/' )
   if ( idx > 0 ) then
      segment  = path(1:idx-1)
      path(1:) = path(idx+1:)
   else
      if ( path == ' ' ) then
         segment = ' '
      else
         segment = path
         path    = ' '
      endif
   endif
end subroutine tree_next_segment

! tree_append_handles --
!    Append to an array of handles
!
! Arguments:
!    all_handles  Pointer to array holding all handles
!    handles      New array to be appended
! Result:
!    A new array with all handles included
!
subroutine tree_append_handles( all_handles, handles )
   type(TREE_DATA_PTR), dimension(:), pointer :: all_handles
   type(TREE_DATA_PTR), dimension(:)          :: handles

   type(TREE_DATA_PTR), dimension(:), pointer :: new_array

   integer :: total_size

   total_size = size(all_handles) + size(handles)
   allocate( new_array(1:total_size) )

   new_array(1:size(all_handles))            = all_handles
   new_array(size(all_handles)+1:total_size) = handles

   deallocate( all_handles )
   all_handles => new_array

end subroutine tree_append_handles

! tree_find_descendants --
!    Find all nodes with a given name and type
!
! Arguments:
!    tree         The node in the tree to start the search
!    name         The name of the node (empty for all)
!    type         The type of the node (empty for all)
!    all          Descend the tree (.true.) or only look at children
!    handles      A returned array of handles to the nodes that
!                 were found
! Result:
!    An array of node handles - each node is found on the specified
!    path. The user should deallocate the array when done
!
recursive subroutine tree_find_descendants_priv( &
                        tree, name, type, all, handles )
   type(TREE_DATA), pointer                     :: tree
   type(TREE_DATA_PTR), dimension(:), pointer   :: handles
   character(len=*)                             :: name
   character(len=*)                             :: type
   logical                                      :: all

   type(TREE_DATA_PTR), dimension(1:1)          :: new_handle
   character(len=80)                            :: node_name
   character(len=80)                            :: node_type
   integer                                      :: i

   if ( associated(tree%child_nodes) ) then
      do i = 1,size(tree%child_nodes)
         node_name = tree_get_name( tree%child_nodes(i)%node_ptr )
         node_type = tree_get_datatype( tree%child_nodes(i)%node_ptr )

         if ( (node_name .eq. name .or. name .eq. ' ') .and. &
              (node_type .eq. type .or. type .eq. ' ') ) then
            new_handle(1)%node_ptr => tree%child_nodes(i)%node_ptr
            call tree_append_handles( handles, new_handle )
         else
            if ( all ) then
               call tree_find_descendants_priv( &
                       tree%child_nodes(i)%node_ptr, &
                       name, type, all, handles )
            endif
         endif
      enddo
   endif

end subroutine tree_find_descendants_priv

! tree_find_descendants --
!    Find all nodes with a given name and type
!
! Arguments:
!    tree         The node in the tree to start the search
!    name         The name of the node (empty for all)
!    type         The type of the node (empty for all)
!    all          Descend the tree (.true.) or only look at children
!    handles      A returned array of handles to the nodes that
!                 were found
! Result:
!    An array of node handles - each node is found on the specified
!    path. The user should deallocate the array when done
!
subroutine tree_find_descendants( tree, name, type, all, handles )
   type(TREE_DATA), pointer                     :: tree
   type(TREE_DATA_PTR), dimension(:), pointer   :: handles
   character(len=*)                             :: name
   character(len=*)                             :: type
   logical                                      :: all

   type(TREE_DATA_PTR), dimension(:), pointer   :: new_handle
   character(len=80)                            :: node_name
   character(len=80)                            :: node_type

   allocate( handles(1:0) )
   call tree_find_descendants_priv( tree, name, type, all, handles )

end subroutine tree_find_descendants

! tree_find --
!    Find all nodes given by a path
!
! Arguments:
!    tree         The node in the tree to start the search
!    path         The path (a string of names separated by /)
!    handles      A returned array of handles to the nodes that
!                 were found
! Result:
!    An array of node handles - each node is found on the specified
!    path. The user should deallocate the array when done
!
subroutine tree_find( tree, path, handles )
   type(TREE_DATA), pointer                   :: tree
   type(TREE_DATA_PTR), dimension(:), pointer :: handles
   character(len=*)                           :: path

   !
   ! Local variables: use the string length of path!
   !
   character(len=len(path))                   :: path_stripped
   character(len=len(path))                   :: segment

   type(TREE_DATA_PTR), dimension(:), pointer :: result_handles
   type(TREE_DATA_PTR), dimension(:), pointer :: new_handles

   logical                                    :: all
   integer                                    :: i

   !
   ! For the first segment we will search the whole tree,
   ! after that we are only interested in direct children
   !
   all           = .true.
   path_stripped = path

   allocate( handles(1:1) )
   handles(1)%node_ptr => tree

   do
      call tree_next_segment( path_stripped, segment )

      if ( segment /= ' ' ) then
         allocate( result_handles(1:0) )
         do i = 1,size(handles)
            call tree_find_descendants( handles(i)%node_ptr, segment, &
                    "", all, new_handles )
            call tree_append_handles( result_handles, new_handles )
            deallocate( new_handles )
         enddo
         all = .false.
      else
         exit
      endif
      deallocate( handles )
      handles => result_handles
   enddo

end subroutine tree_find

max_stars_repo_name: paulromano/xml-fortran

max_issues_repo_name: paulromano/xml-fortran

max_forks_repo_name: paulromano/xml-fortran


function dv_mod_2d(x,y,z,ips)
common/mod_2d/xmod1,nxmod,dxmod,ymod1,nymod,dymod, dv_mod(2,300,300,300)

dv_mod_2d=0
if(nxmod.eq.0) return

xmod2=xmod1+dxmod*nxmod
ymod2=ymod1+dymod*nymod
zmod2=zmod1+dzmod*nzmod

if((x-xmod1)*(x-xmod2).gt.0.) return
if((y-ymod1)*(y-ymod2).gt.0.) return
if((z-zmod1)*(z-zmod2).gt.0.) return

do ix=1,nxmod-1
	x1=xmod1+(ix-1)*dxmod
	x2=xmod1+(ix)*dxmod
	if((x-x1)*(x-x2).le.0.) exit
end do

do iy=1,nymod-1
	y1=ymod1+(iy-1)*dymod
	y2=ymod1+(iy)*dymod
	if((y-y1)*(y-y2).le.0.) exit
end do

do iz=1,nzmod-1
	z1=zmod1+(iz-1)*dzmod
	z2=zmod1+(iz)*dzmod
	if((z-z1)*(z-z2).le.0.) exit
end do

v111=dv_mod(ips,ix,iy,iz)
v211=dv_mod(ips,ix+1,iy,iz)
v121=dv_mod(ips,ix,iy+1,iz)
v221=dv_mod(ips,ix+1,iy+1,iz)

v112=dv_mod(ips,ix,iy,iz+1)
v212=dv_mod(ips,ix+1,iy,iz+1)
v122=dv_mod(ips,ix,iy+1,iz+1)
v222=dv_mod(ips,ix+1,iy+1,iz+1)

v11=v111+((v211-v111)/(x2-x1))*(x-x1)
v21=v121+((v221-v121)/(x2-x1))*(x-x1)
v12=v112+((v212-v112)/(x2-x1))*(x-x1)
v22=v122+((v222-v122)/(x2-x1))*(x-x1)

v1=v11+((v21-v11)/(y2-y1))*(y-y1)
v2=v12+((v22-v12)/(y2-y1))*(y-y1)

dv_mod_2d = v1+((v2-v1)/(z2-z1))*(z-z1)

return
end


text:
Yoursphere Media, Inc. focuses on the family and publishes the kidsonly social network, Yoursphere.com, and the Internetsafety resource site for parents, YoursphereForParents.com.

Yoursphere.com is a kidsonly social network. Yoursphere offers its members features commonly found on social networks – their own blog, hundreds of games, a virtual world, the fostering of shared interests through “spheres”, social interaction, contests, rewards and, perhaps most uniquely, a scholarship program.

Members online safety and privacy are a key priority through the application of common sense safeguards, according to the creators. The site is focused on supporting the positive interests and aspirations of its members. No child has to pretend to be 13 to join. Yoursphere offers free as well as premium memberships to its young audience up to age 17.

Yourspheres priority of childrens online safety and privacy is achieved via implementation of technology, human oversight, proprietary policies including input from their Law Enforcement Task Force populated by former Secret Service, FBI agents and other law enforcement officials as well as through education and action. Yoursphere adheres to the federal Children‟s Online Privacy Protection Act (COPPA) and is approved by the Privacy Vaults Online Safe Harbor of the Federal Trade Commission (FTC).

Yourspheres companion site, Yoursphere for Parents, equips families with practical tools for handling the online world to help ensure a positive and safe experience. Yoursphere For Parents is read by parents in more than 96 countries.

 Davis Connections to the site

Founder:
Mary Kay Hoal marykayhoal@yoursphere.com

Mary Kay Hoal is a nationally recognized expert on children’s online safety as well as a wife and mother of five children ranging in age from 7 – 20 years old. She is the founder and president of Yoursphere Media Inc., which focuses on the family and publishes the kids’ social network Yoursphere.com as well as the Internet and social networking safety resource site YoursphereForParents.com.

In addition to providing legal expert witness work for counsel specific to family Internet and social networking safety, Mary Kay has been profiled on CNN, BBC, E!, Fox & Friends, Lifetime TV and many others. Mary Kay has appeared on ABCs 20/20 as their family Internetsafety “web avenger”. She is a contributing columnist for ABC News, Yahoo!Shine, Dr. Laura.com and is the goto children’s online safety expert for millions of parents.

Mary Kay earned a Bachelor of Arts in Communications (with a minor in Journalism) from Eastern Washington University.

Mary Kay and her husband Ted live in Davis, CA.

www.marykayhoal.com

20120320 21:11:18 nbsp Yoursphere is a wonderful idea, and we are so lucky in Davis to have this company here.   When someone types in www, they can really end up anywhere, and children are not prepaired for going anywhere on the net.  Yoursphere seems to address these issues, in a professional way.   I am totally suportive of Yoursphere contribution to our community.  Jamie Users/JamesMorton


! starfield.f90
!
! X11 starfield demo for EGGX/ProCALL.
!
! Author:  Philipp Engel
! Licence: ISC
module starfield
    implicit none
    private

    type, public :: point_type
        real :: x, y
    end type point_type

    type, public :: star_type
        real :: x, y, z
    end type star_type

    public :: starfield_init
    public :: starfield_move
    public :: starfield_project
contains
    subroutine starfield_init(stars, width, height, max_depth)
        !! Initialises the starfield to given viewport width and height, with
        !! respect to maximum depth in Z.
        type(star_type), intent(inout) :: stars(:)
        real,            intent(in)    :: width
        real,            intent(in)    :: height
        real,            intent(in)    :: max_depth
        integer                        :: i
        real                           :: r(3)

        do i = 1, size(stars)
            call random_number(r)
            stars(i) = star_type(x = (width / 2) - (r(1) * width), &
                                 y = (height / 2) - (r(2) * height), &
                                 z = r(3) * max_depth)
        end do
    end subroutine starfield_init

    subroutine starfield_move(stars, width, height, max_depth, dz)
        !! Moves starfield in camera direction by `dz`. Stars passing the camera
        !! will be reset to a random X, Y position, and Z set to `max_depth`.
        type(star_type), intent(inout) :: stars(:)
        real,            intent(in)    :: width
        real,            intent(in)    :: height
        real,            intent(in)    :: max_depth
        real,            intent(in)    :: dz
        integer                        :: i
        real                           :: r(2)

        do i = 1, size(stars)
            stars(i)%z = stars(i)%z - dz

            if (stars(i)%z < 0.0) then
                call random_number(r)
                stars(i) = star_type(x = (width / 2) - (r(1) * width), &
                                     y = (height / 2) - (r(2) * height), &
                                     z = max_depth)
            end if
        end do
    end subroutine starfield_move

    subroutine starfield_project(stars, width, height, points)
        !! Projects star coordinates from 3D into 2D.
        type(star_type),  intent(inout) :: stars(:)
        real,             intent(in)    :: width
        real,             intent(in)    :: height
        type(point_type), intent(inout) :: points(:)
        integer                         :: i
        real                            :: k

        do i = 1, size(stars)
            k = 128.0 / stars(i)%z
            points(i)%x = stars(i)%x * k + (width / 2)
            points(i)%y = stars(i)%y * k + (height / 2)
        end do
    end subroutine starfield_project
end module starfield

program main
    use, intrinsic :: iso_c_binding, only: c_null_char
    use :: procall
    use :: starfield
    implicit none

    real,    parameter :: WIDTH      = 640.                 ! Viewport width.
    real,    parameter :: HEIGHT     = 480.                 ! Viewport height.
    real,    parameter :: MAX_DEPTH  = 800.                 ! Max. Z of stars.
    real,    parameter :: DZ         = 2.0                  ! Stars movement in Z.
    integer, parameter :: NSTARS     = 128                  ! Number of stars.
    integer, parameter :: WIN_WIDTH  = int(WIDTH)           ! Window width.
    integer, parameter :: WIN_HEIGHT = int(HEIGHT)          ! Window height.
    integer, parameter :: DELAY      = 10                   ! Frame delay in msec.

    type(star_type)  :: stars(NSTARS)
    type(point_type) :: points(NSTARS)
    integer          :: i
    integer          :: r, g, b
    integer          :: win

    ! Initialise PRNG.
    call random_seed()

    ! Initialise the starfield.
    call starfield_init(stars, WIDTH, HEIGHT, MAX_DEPTH)

    call gopen(WIN_WIDTH, WIN_HEIGHT, win)                  ! Open X11 window.
    call winname(win, 'Fortran Starfield' // c_null_char)   ! Set window title.
    call gsetbgcolor(win, 'black' // c_null_char)           ! Set background colour.
    call layer(win, 0, 1)                                   ! Enable double buffering.

    do
        ! Move starfield and project from 3D to 2D.
        call starfield_move(stars, WIDTH, HEIGHT, MAX_DEPTH, DZ)
        call starfield_project(stars, WIDTH, HEIGHT, points)

        ! Clear draw area and draw points.
        call gclr(win)

        do i = 1, NSTARS
            ! Get RGB values from colour gradient, set pen colour, and draw
            ! single pixel. Stars farther away will be darker.
            call makecolor(0, MAX_DEPTH * 1.5, 0.0, stars(i)%z, r, g, b)
            call newrgbcolor(win, r, g, b)
            call pset(win, points(i)%x - 1, points(i)%y - 1)
        end do

        ! Copy layer to window and sleep.
        call copylayer(win, 1, 0)
        call msleep(DELAY)
    end do

    ! Close all windows.
    call gcloseall()
end program main


text:
! { dg-do compile }
! { dg-options "-O3 -fwhole-file" }
      CALL UVSET(NX,NY,NZ,HVAR,ZET,NP,DZ,DKM,UM,VM,UG,VG,TM,DCDX, ! { dg-warning "Rank mismatch" }
     *ITY,ISH,NSMT,F)
         CALL DCTDX(NX,NY,NX1,NFILT,C(MLAG),DCDX(MLAG),HELP,HELPA,
     *   HELP,HELPA,FY,FYC,SAVEY)
      END
      SUBROUTINE PADEC(DKS,DKDS,HVAR,WM,WG,FN,NS,AN,BN,CN,IT)
      COMPLEX*16 WM(*),WG(*),FN(*),AN(*),BN(*),CN(*)
         BN(J)=F4+AS+GAMMA*F2
         CN(J)=F4-AS+GAMMA*F2
         FN(J)=(AS+F4-GAMMA*F2)*H2+(F4-AS-GAMMA*F2)*H0+
     *   H1*(F3-GAMMA/3.D0)+GAMMA*WG(J)-CONST
      END
      SUBROUTINE UVSET(NX,NY,NZ,HVAR,ZET,NP,DZ,DKM,UM,VM,UG,VG,TM,
     *WORK,ITY,IH,NSMT,F)
      DIMENSION HVAR(*),ZET(*),TM(*),DKM(*),UM(*),VM(*),UG(*),VG(*),
     *WORK(*)
      IF(IH.EQ.0) THEN
         CALL PADEC(DKM,VM,HVAR,WORK(LWM),WORK(LWG), ! { dg-warning "Rank mismatch" }
     *   WORK(LF),NZ,WORK(LA),WORK(LB),WORK(LC),ITY)
      ENDIF
      END

max_issues_repo_name: sujankh/rose-matlab

max_forks_repo_name: sujankh/rose-matlab


      subroutine aqu_hyds

!!  nothing from nothing leaves nothing
      implicit none

      return
      end subroutine aqu_hyds


text:
module mixing_r

use types
use dft_data
use mixings
implicit none
private
public R1, R2, R3

contains

function R1(x, i, tmp)
real(dp), intent(in) :: x(:)
integer, intent(in) :: i
type(dft_data_t), intent(inout) :: tmp
real(dp) :: R1(size(x))

real(dp) :: d(size(x)), c
print *, i, associated(tmp%ks_energies)

d = (/ 3.0_dp, 2.0_dp, 1.5_dp, 1.0_dp, 0.5_dp /)
c = 0.01_dp
R1 = -d*x - c*sum(x*x)*x
end function

function R2(x, i, tmp)
real(dp), intent(in) :: x(:)
integer, intent(in) :: i
type(dft_data_t), intent(inout) :: tmp
real(dp) :: R2(size(x))
print *, i, associated(tmp%ks_energies)

R2 = cos(x) - x
end function

function R3(x, i, tmp)
real(dp), intent(in) :: x(:)
integer, intent(in) :: i
type(dft_data_t), intent(inout) :: tmp
real(dp) :: R3(size(x))

real(dp) :: a, b
real(dp), parameter :: c = 2.0_dp
print *, i, associated(tmp%ks_energies)
a = x(1)
b = x(2)
R3 = a**2 + b**2 - c**2
end function

end module

program mixings_test
! Tests all mixing schemes, that they work as excpected.
use types
use mixings
use dft_data
use mixing_r
use utils
implicit none

type(dft_data_t) :: d
real(dp) :: x0(5), x(5), y(50), y0(50), z(2), z0(2)
real(dp), target :: tmp1(5), tmp2(50), tmp3(2)
integer :: i

x0(:) = 1.0_dp

! For anderson mixing:
tmp1(:) = 1.0_dp
d%R => tmp1

x = mixing_linear(R1, x0, 60, 0.5_dp, d)
call assert(sqrt(sum(x**2)) < 1e-7_dp)
call assert(sqrt(sum(R1(x, 1, d)**2)) < 1e-7_dp)

x = mixing_linear_adapt(R1, x0, 20, 0.5_dp, d)
call assert(sqrt(sum(x**2)) < 1e-5_dp)
call assert(sqrt(sum(R1(x, 1, d)**2)) < 1e-5_dp)

x = mixing_anderson(R1, x0, 35, .false., d, alpha=0.5_dp, eps=0.0_dp)
call assert(sqrt(sum(x**2)) < 1e-5_dp)
call assert(sqrt(sum(R1(x, 1, d)**2)) < 1e-5_dp)

! ***************************************************

do i = 1, size(y)
    y0(i) = i
end do

! For anderson mixing:
tmp2(:) = 1.0_dp
d%R => tmp2

y = mixing_linear(R2, y0, 50, 1.0_dp, d)
call assert(sum((y-0.73908513321516067)**2) < 1e-10_dp)

y = mixing_linear_adapt(R2, y0, 20, 0.1_dp, d)
call assert(sum((y-0.73908513321516067)**2) < 1e-10_dp)

y = mixing_anderson(R2, y0, 9, .false., d, alpha=0.5_dp, eps=0.0_dp)
call assert(sum((y-0.73908513321516067)**2) < 1e-10_dp)

! ***************************************************

z0 = (/ 0.5, 0.5 /)

! For anderson mixing:
tmp3(:) = 1.0_dp
d%R => tmp3

z = mixing_linear(R3, z0, 40, 0.1_dp, d)
call assert(abs(z(1)**2 + z(2)**2 - 2.0_dp**2) < 1e-10_dp)

z = mixing_linear_adapt(R3, z0, 30, 0.1_dp, d)
call assert(abs(z(1)**2 + z(2)**2 - 2.0_dp**2) < 1e-10_dp)

z = mixing_anderson(R3, z0, 8, .false., d, alpha=0.5_dp, eps=0.0_dp)
call assert(abs(z(1)**2 + z(2)**2 - 2.0_dp**2) < 1e-10_dp)

end program

max_stars_repo_name: rc/dftatom

max_issues_repo_name: rc/dftatom

max_forks_repo_name: rc/dftatom


text:
The title of this article is incorrect due to technical restrictions. The correct title is Pasta?

Tres Hermanas opened at this location in September 2010.

Less expensive than Osteria Fasulo and more classy/Yuppies yuppie than Davis other Italian restaurants, Pasta? is an ideal place to have a Decent Well Liquor drink, go on a Good Ideas For Dates date, or eat some pasta. The appetizers are uniformly good, but the pasta itself is variable in quality  the salmon fettuccine is delectable but the pesto is obviously canned. According to their menu, fresh pastas include ravioli, fettuccine, and gnocchi, but do not include string and tube shaped pastas.

Fresh and dried pasta dishes tend to cost the same here, but dried pasta can be bought anywhere and cooked by anyone with ease. Fresh pasta is more expensive for purchase, typically tastier, time intensive for the average home cook, and sometimes requires expensive equipment. A good dried commercial pasta can rival fresh pasta, but given the rarity of fresh pasta in American restaurants, choosing the fresh items may get the best bang for your buck. Pasta? is run by real Italian people so they should be trusted as to its authenticity instead of some standard people already have in their head, possibly Olive Garden. The creativity and skill of the staff is more important than adherence to a standard.

There is also an unusual combination bench and fountain on the corner. If youre curious, one of the businesses directly above is The Style Lounge.

There are also Pasta? restaurants in:
  Palo Alto
  Mountain View

Directly in front of the restaurant is a PastaQ Fountain fountain.

They run a pretty good bar during the school year, which is sadly closed during summertime.

Media

  Pasta? was one of the bars Davis Life Magazine visited and wrote about in their http://www.davislifemagazine.com/Content.aspx?m1/1/2009&cId2483 2009 review of seven local bars.

20050425 14:13:29 nbsp Ive had the Fusilli con salsiccia a couple times and thought it was pretty good.  We did have an odd experience once when all of our group happened to order dishes with different sauces but the dishes all came out with rather similar looking orangey sauces. shrug We happened to go for their opening night and it was pretty neat to have the owner wandering around checking on the dishes and talking to the patrons. Users/RussBowlus

20050608 21:01:36 nbsp Not worth it.  Better to make pasta yourself or drive to Sac.  This place purports to fill a gap in Davis dining, but is consistently mediocre, betting on students not knowing the difference (or caring about the difference) between good italian and overcooked pasta in secondrate sauce. Users/EllenWoodall

I like to get the Tarantina because they always do a great job with the mussells and you cant ask for a better staff. I am first generation Italian and they get it extremely close being from Napoli and Forenza. It confuses some people who arent from back East or overseas to eat here because it doesnt taste like Olive Garden which your mediocre tastebuds think is delicious. The bar scene at night is really chill too. Users/JonathanNasca

20050620 01:53:29 nbsp A restaurant should superbly make simple dishes, or make dishes too complex for the home cook. The menus simplest pasta dishes, the Angry Pasta and Pesto, were lacking in depth. The Angry Pasta was dominated by bland herbs, and lacked the intense hints of garlic and spice that normally flavor this dish. The pesto was an oily, weakish green sauce devoid of nuttiness. Indeed, one of the staff revealed it to be from a jar, a cardinal sin for a cuisine that thrives on fresh ingredients. Ive been told the ravioli and gnocci are worth trying. Their regular pastas are okay quality, but I couldnt tell the difference between them and good quality dried pastas. Their seafood pasta dishes are good, but the overuse of dairy products makes their pasta sauces too uniform in character. The appetizers are great, and I enjoy soaking up the musselss sauce w/ bread. And for the record, Im from a predominately Italian region of NY, have been to Naples, and detest the Soylent stylings of Olive Garden. Users/CraigBrozinsky

20050711 19:48:11 nbsp I had a rather homophobic experience here from a waiter and I have no plans on going back Users/BobGill

20050717 15:59:24 nbsp Even the bread was stale. Does it get any more pretentious than this? Users/NoelBruening

20050726 17:20:11 nbsp I love their Spaghetti Bella Napoli the most.  They are mostly polite, and depending upon the times you go, their service can be pretty good. Users/MindyYang

20050726 19:11:54 nbsp I ate lunch here months ago.  My girlfriend had, and liked, the gnocci, and I had raviolli in the pink sauce (mix of normal and the creamy sauce).  Service was fine, food was alright but pricey for what you get.  Users/Edwins ES

20050728 01:08:53 nbsp Cant say that Ive had their namesake plate however I did get the vegetarian sandwich (full of roasted veg and pesto) and asked them to put proscuitto in it...and they did! I got hooked up fat plus I wasnt charged extra. The balsamic vinegrette could have been tastier but not bad. Our bread was actually quite good and it flowed like crazy. But do NOT get the tiramisu. It was most disappointing, which for an Italian place, it should not. But their chocolate tartufo was worth it. ) But for some reason we were not given water. This has been a trend lately. Strange. Users/KarlaFung

20050810 19:01:35 nbsp One of my favorites, good dishes are the gnocchi, ravioli (shrimp and lobster on special were amazing), and the Tarantina. Service is good, the bread could use a little work.  Users/MelissaPytlak

20050816 19:24:47 nbsp In spite of all the nasty comments, I have to give them a very strong recommendation.  I had about 20+ people there for dinner for my 21st birthday, and everything went without a hitch.  Unlike some businesses (cough cough Caffe Italia), Pasta? had no problem with a wishywashy number of guests (so long as they had a general idea of how many people).  They asked how I wanted the tables to be arranged (hee hee Last Supper style), and there wasnt a glass of water or a bread basket that ever made it to empty.  They gave us two servers; everyones drinks/appetizers came out at the same time, and miraculously, not one person was left playing with their fork waiting for the entree to come out...everyone received theirs, hot, at the same time.  Further, EVERYONES order was right, which is often surprising, given that Chevys cant get a twoperson order correct to save their lives.  I also appreciate the fact that they have a decent number of nocheese and vegetarian options (with a certain special someone of mine being lactose intolerant).  They have excellent fettucini alfredo and that tomato/clams (mussels?) pasta dish is superb.  Gotta give them props.  Users/JulieEickhof

20050819 15:13:32 nbsp I went here once on a Thursday night with a few friends of mine. After about ten minutes after arriving, this absolutely ridiculously drunk guy came up to my friend at the bar, unsuccessfully hit on her, told me that he was sorry, but your friend is FIIIIINE, then bit her on the shoulderblade. Beware of the sketchy clientele at the bar.  Users/JoannaHeiple

20050823 12:38:39 nbsp Their fettucini alfredo is not impressive.  Since fettucini alfredo is a classic, and they cant seem to do it right, Im not quite impressed by the place.  Fuzios is better. Users/AndreaPasiliao
  Well, if theyre claiming to be authentic Italian, this is understandable. Although Fettucine Alfredo was invented in Italy (ca 1914), its neither traditional nor popular there. But your point is taken combined with some of the above comments, it seems to be the case that both their authentic and americanized dishes are lacking.

20050922 17:07:45 nbsp The owner and maitre d are from Bari, on the Adriatic coast not far from Taranto.  So eat the seafood dishes, they are close to the heart of the restauranteurs.  Its my favorite restaurant in Davis...but I think olive oil, garlic and mollusks are three of the four basic food groups. Users/MarcusSitz

20051104 19:39:32 nbsp If you like clams, their Bella Napoli is really really ridiculously good! Ive been comparing similar clam dishes in Strings and Cafe Italia, and nothing compares to this. For one thing, Pasta? serves it with the shell so it tastes fresh and oh so juicy (unlike the canned and bottled versions that the other restaurants seem to use)!! The Tarantina is also a good mussel dish with calamari and spicy tomato sauce. Service is fairly good, depending who you get.  Theres always someone to provide more bread and water, so thats nice. You can also call in for pickup and theyre pretty quick to prepare your order.  Users/MarianneDominguez

20051121 15:17:00 nbsp Strangely unauthentic Italian food for a restaurant owned and operated by real Italians.  But for an American audience, it beats Olive Garden or Strings.  I had the Penne Norcina, which was pretty tasty.  My wife could not finish her extremely overcooked Gnocchi.  The coffee (by that I mean espresso) is better than most restaurants or for that matter most cafes in Davis.  They use Miscela dOro coffee.  My shot was pretty good, though a little long.  Overall pretty decent, but it is what it is. Users/DjzayValenta
  Nevermind!  Dont bother!  I went there this last Friday with my wife.  Not only had they raised the prices on the mediocre food YET AGAIN, but service was spotty at best (again) and the food was worse than normal.  On top of that, my wife and I had the exact same dish, and we BOTH got sick.  I  have been to Pasta? a half dozen times simply because it is convenient and I didnt have high expectations.  Now I will never go back.  Since they keep raising the prices, they are now about the same as Caffe Italia.  I will go there from now on. Users/DjzayValenta

20051121 16:20:54 nbsp I think the pretentiousness is amusing.  The food is pretty good for the money, and Ive found the service to be worth a higherthannormal tip.   The fact that this place is next to a train station and is in a generally pedestrianfriendly area seals the deal for me  Ill happily go back. Users/GrahamFreeman

20051123 22:13:01 nbsp Pasta wasnt cooked ideally, and the salmon kind of tasted like it came out of a can (too silky to be fresh/real). Not bad, just kind of oversalted. The bread was good, as was the salad. Service was pretty fast, although the waiter was inconsistent with his service to our table. He still got a decent tip for being friendly. Not really authentic, but Im not going to cross it off of my list.   Users/AndrewLeonard

20051209 15:38:27 nbsp Last night I saw the owner doing coke in the bathroom. It was awesome! Users/ArlenAbraham

20051214 10:46:27 nbsp This place is kinda disappointing. I like the atmosphere and found the service pretty impressive, but then, why does the food suck? I dont understand why the pasta I ordered was such a small dish, or why it tasted so bland. But Im not willing to pay $9 for crap food. I may go back to see if it was maybe just what I ordered. SS

20060107 09:54:31 nbsp This place seems to garner a bevy of negative comments. Fortunately (for the restaurant), I dont agree with them. I went there last night for dinner and overall it was a great experience. We had a 7pm dinner reservation, but due to a crazy amount of people all showing up at one time, it took 5 minutes for them to seat us. That did not really bother me; it was nice to see a restaurant so full of life. Once we were seated, we had bread and olive oil  as soon as we got to the last piece, our waiter showed up. Walter, our waiter was a really cool guy from the Adriatic Coast of Italy. We ordered two pasta dishes  one straight from the menu and one with a special request (no cheese). The request was graciously accommodated. Our food came out very quickly, despite how busy it was. After dinner, the waiter offered me a traditional Italian afterdinner drink  Italian espresso. Overall, Pasta? was a great, pretty authentic experience. I will definitely go back there again. Users/GregHirson

20060113 10:10:02 nbsp My wife and I went on a Friday night and the service was atrocious. The bartender was surly and incompetent and the waitstaff harried and inexperienced.  I spoke to the owner/GM about it and he said they were a few waiters short that night but it was most definitely a poorlymanaged and poorlystaffed establishment. Food, service, experience C Users/FromBayarea

20060113 14:59:44 nbsp The gnocchi isnt baked.. its just boiled.. a bit of  a letdown if  you know your gnocchi. Users/JulienBiewerElstob

The gnocchi is just the type of dumpling pasta, the words after it will let you know how it is prepared and FYI the most common i.e. default preparation for gnocchis is to boil, followed by baking, followed by a simmer in light Northern sauces. Jonathan Nasca

20060130 14:04:03 nbsp Whats with the question mark?  Are patrons supposed to guess that theyre going to have pasta? Users/JohnNapier

20060212 00:48:27 nbsp Simply put this place sux. I was hoping for a better selection of pasta and antipasti. There wasnt. I went here with my dad and we found the food so god awful that both of us were gonna puke. My relatives are Italian and coming from a very Italian family I have to say this place was an insult. To top that off the chef kept on coming over to us to validate whether the food was good or not. The only response that I could dignify was uh... We also had the merlot here and sadly it was bland and very odious. Also avoid the bar unless u want to have a horribly bad taste in ur mouth. If you really want some good Italian food go to Osteria Fasulo. For even better Italian food make the drive to the Italian Quarter in SF, North Beach to be exact.  Users/MikeMele

20060222 19:27:34 nbsp Theyre desserts are really good, especially the chocolate fondant cake and the chocolate souffle. :) Users/VivianPham

20060315 21:19:39 nbsp I recommend the bruschetta, spaghetti tarantina and spaghetti bella napoli. Waiters are a kind of creepy.  Users/JessicaFu

20060319 18:20:35 nbsp The food is decent.  I always get the Tarantina.  Girls, prepare to be hit on a lot.  It doesnt matter if youre underage.  The waiters will probably hit on you. Users/KevinRollins

20060319 19:21:25 nbsp Decent food. Not really authentic at all, imagine like.. decent Americanized Italian food trying to be authentically Italian, and that is what this place tastes like.  It always seems to be busy though.  The prices arent too bad either, but granted, it is just pasta. Users/JulienBiewerElstob

Wow this is the most ridiculous comment . Have you ever been to Italy? Just because this doesnt taste like the Olive Garden or Sbarro does not mean its not authentic which it is (for Neopolitan food) so you may want to cut out on the wordly talk ....Jonathan Nasca

20060504 20:04:47 nbsp Ive been there several times.  The only bad thing that ever happened was that they forgot our bread but really it just saved us calories:)  My husband and I almost always get  the fusilli con salsiccia.  We can share that plate then share a dessert and it ends up being a relatively cheap date in a cute restaurant.  I also had my husbands graduation dinner there and although we were all late after the ceremony, they did a great job serving, and everyone went home happy! Users/JenCam

20060526 08:56:29 nbsp Dissappointed. The atmosphere was excellent. It looked very nice inside and out, but the food was questionable. The menu looked like it only have two sauces, and I went there with my family, tried both sauces and not impressed. Definitly overpriced, notsogood pasta? Users/AlexKang

20060820 14:03:56 nbsp Ive never been to Italy myself, but it seems hilarious to me that anyone would defend this as being in any way authentic Italian food. Perhaps dishes are OK for the price: if you take into consideration the location, rent, etc. but why open up a restaurant and then be forced to serve medium/smallish portions of crappy pasta? And on that note: why open up a restaurant called pasta ? that doesnt serve housemade pasta?  Anyway: have eaten there three times, food was disappointing price seemed high for level of mediocrity. Would recommend against eating there. Users/DianaChristofersen

Wow, youve never been to Italy and yet you find it amusing that the food is considered authentic?  I lived in Italy for 3 months.  Go to Italy, and then come back.  Many of the dishes are exactly what you would find in Italy.  Seems a little naive..... annoyed user

200608903  20:47 nbsp  I went there today for dinner and the service was so slow.  Im talking about waiting forever to just get our orders and then FOREVER to get the check.  You would think that they would want the money but apparently not... it wasnt even that busy either!  The food was only okay and to be honest, probably wouldnt eat here again.  Had the tube pasta with italian bacon and onions.  Bf had the gnocci, not great.  And the bread was cold :(  The only redeeming part of dinner was how the waiters refilled out water very quickly (the only thing that was quick that night).  Sorry, but in my opinion, if you want to have pasta, dont go to Pasta with the question mark.  Users/KatYu

20060921 14:20:33 nbsp I dont know why there are so many negative comments here. My boyfriend and I eat there regularly and weve always left happy. I was particularly impressed when I ordered this seafood dish one time (cant remember the name, but I want to say it was the Taranto) that contained mussells and calamari. I wasnt in the mood for mussells that day so I asked them to leave that out. Not only did they get that part correct, they gave me A TON of extra calamari. I have to say that alone earned them major brownie points. It also didnt hurt that the pasta sauce (nice and spicy) was just about perfect. The Penne Norcina is also quite delicious if youre not a tomatoe sauce person. Hands down the best Italian restaurant in Davis, especially for the price (low to moderate for Italian). Users/TiffanyHsieh

20061009 16:40:18 nbsp You would think that since theyre called Pasta? they would have good pasta. But things seem to all look similar and you can maybe try goin to safeway and buy a good sauce and cook it yourself for like 1/10 of the price.   Users/KiwiSelina

20061022 07:25:57 nbsp I generally like this place.  We take our 20 month old daughter there a lot and the atmosphere is very pleasant and she likes their gnocci.  I agree with many writers here that the food is not anything to die for but once you accept that this is not a top notch Italian place the food is fine.  However, any time we have been when it is crowded has been rough in terms of the service.  And this past Friday night was a disaster (it was homecoming night).  Simply put, they did not have even close to enough staff.  It took 30 minutes or so for them to even take our order.  We got our salads 20 minutes later.  And our food never came.  We finally ended up leaving.  The staff was trying hard but they just did not have enough people.  On a positive note  they told us we did not have to pay for the salads.   Users/JonathanEisen

20061110 21:34:31 nbsp Agree with all the Gnocchi comments. Its not very good. It has a good location, but not much else going for it. Users/ErwinSena

20061114 23:34:09 nbsp Pasta? Overpriced? Mediocre food? Annoying staff? Yes. Users/DavisDavis

20061128 17:17:14 nbsp Ive been to Pasta? (goddamn that question mark is annoying) several times with my girlfriend, and a couple times with her and another friend.  I like the gnocchi, but I also dont pretend to know anything about authentic Italian cuisine.  If youre an average guy and you like pasta, chances are youll like it.  The service is usually slow, and the wait staff can be pretentious.  Also, some of the waiters seem to think that its ok to only refill the drinks of the ladies that you are with, and ignore your requests for water.  If this happens, just do what I did; dont leave them a tip.  I spent half of my meal thirsty because they wouldnt bring water.  If my girlfriend didnt insist on going back (she likes the salmon dish,)  I wouldnt go back. Users/DominicCardenas

20061205 15:28:44 nbsp Went to Pasta? for lunch on a Friday, and had a great experience.  We went with a native Italian, and we joke on the way in that they probably dont speak Italian here.  But, we did have a native Italian waiter, and he was great.  He spoke Italian with us, and gave us gift coupons.  Food was good  I recommend the Lasagna or the seafood pasta (Tarantina).  One of us had a more bland pasta dish.  Id give this restaurant a 4 out of 5.  Users/RudyGramage

20070205 22:28:38 nbsp Least original name for a restaurant ever in the history of all time.  Unless someone has opened up a deli called Sandwich! Users/JeffSpeckles

20070206 07:58:51 nbsp Why was Pasta? closed last night? We went there at 6:30 and it was not open... Users/MyaBrn

20070206 18:09:10 nbsp Pasta?  Probably closed?  Last night?  Because?  Mondays?  Are slow? Users/JeffSpeckles

20070214 21:19:09 nbsp Worse service ever! Hostess was a buffoon. Server did not great me until 40 minutes after I sat down. Manager was a complete Jerk. It was on Valentines Day too. If you want a special occassion ruined, go to Pasta? in Davis. The one in Mountain View has better service. I honestly think the drive is worth it compared to wasting a minute of your life at the one here in Davis. Users/JennaStallard

20070219 11:41:41 nbsp I went here with friends and the second we walked in my girlfriend complained that the place smelled absolutely foul and weird. The food is overpriced for the stupidly small portions they serve you. Everything looked like a waste of money, so I bought the Bruschetta appetizer. I will admit, it was very fresh and tasty with the tomatoes, but each of the four pieces of toasted bread was not worth a dollar. Two of my friends paid 9 dollars each for like 8 pieces of ravioli. I think this place is a horrible waste of a cool name, location, and Italian ambiance.  Users/CoreyPham

20070228 18:26:14 nbsp I could make most of their dishes better at home, which wouldnt be such a bad thing if the prices were lower. But theyre not, so thumbs down. Users/BriannaBetancourt

20070310 20:55:01 nbsp The gnocchi with norcina sauce is good. The muscle/clams appetizer is very good. The insalata Caprese is good. The prices are a direct result of the location. If you want good service, request to be seated in Walters area. Quite a few of the servers are Italian. Walter is from Bari, Italy, and is the best server in the place. Its always clean, and the food is the best Italian in town.  Users/CeciliaGabrielli

20070701 03:07:10 nbsp Pasta? is silly. Its the only bar Ive ever been kicked out of, and it was when my friend and I were the _completely_ sober drivers. Apparently, we had to much to drink. I will give em this: they can make some strong drinks at the bar. Users/MichaelAWoods

20070720 19:02:16 nbsp The name says it all PASTA? Users/dickjones

20070728 19:33:01 nbsp Really disappointing food. I was excited when it opened but after my partner and I ate there once, we never returned. The marinara, cream and pesto sauces were either bland and tasteless, too oily, or overly creamy and lacking in flavor. The bread was stale and the salad was poor. Id argue that their sauces taste canned rather than fresh. Honestly, I make much better pasta at home! Users/GradStudent06

20070810 15:23:21 nbsp Ugh, disappointed for the second time. the first time i went i thought i just ordered the wrong thing. Second time wasnt any better. The food their is poorly seasoned and they try to compensate for it by adding lots of salt. Service is ok but nothing special same goes for the ambiance. Definitely not worth the prices. Better off just going to the Bistro for a couple more bucks. Or Cafe Italia if you want to stick with Italian food.  Users/AmyYang

20070904 12:47:24 nbsp $2 Well drinks on Thursdays, Fridays, and Saturday, from 8 PM to 11PM.  Thats an incredible deal.  Not served in teeny tiny cups either. Users/Antoine

20070918 15:10:14 nbsp The food here is soso. Not great, not awful. I wanted to order a cocktail at lunch and the bar wasnt open. That was irritating. The wait staff is not always very friendly. I have had them be very rude to me over THEIR messing up my order. I prefer Caffe Italia. Users/AmberB

20071108 22:33:55 nbsp this place is really great...awesome to eat out here for parties..very nice atmosphere :)...the food is very simple but great...and if you dont want a certain ingredient in your food..well just tell them and theyll substitute it for something else...im a big fan of penne alarrabiata and theres was preety good...not very spicy and i love spicy food..so a little disappointed but otherwise delicious! also we got the tiramisu and i guess if you like the traditional kind of tiramisu go here...but otherwise it was way too moist and cakey...tasted kind of off...otherwise this place seems great...try the pesto potatoes..looked preety good from when i passed someone eating it in the window :) Users/MAIRA

20071214 19:54:48 nbsp Ate here tonight for the first time.  Not too bad, but I cant really compare Italian restaurants since I dont visit them quite much. Users/BenShmidt

20071226 08:48:26 nbsp Less than average food.  If you enjoy Italian, dont go here. Users/Pattie

20080120 23:01:50 nbsp Very bland food.  Im not a fan of this place. Users/Dr.Lindsay

20080121 23:31:21 nbsp An honest question: How many of the Its not authentic comments here are from people who know what real Italian food is? The cuisine of Italy differs dramatically throughout the country. The majority of Pasta?s dishes most closely resembling those of the southern regions. Another issue is that truly authentic Italian food doesnt match the American pallet, for the most part, and would not thrive in an area lacking a large Italian population.

With that said, I have always found the food to be tasty, although the restaurant is understaffed at times. It seems to always be packed on Friday and Saturday nights, so going other nights of the week may be a better option if youre in a hurry. It seems satisfied customers go back, and unsatisfied customers write about it on the internet.

 Users/5thyear

20080202 02:27:11 nbsp Just got back from there during the night club hours. Had an aweful experience. I asked the bartender (Some douche with a Goatee) to get me a patron on the rocks. He comes back with a glass full of ice and patron about 40% full. I tell him that drinks on the rocks are supposed to be drinks filled with ice, and then filled with your choice of beverage. He responds with, Do you want me to get you a smaller glass? Drinks on the rocks are 1 shot of alchohol filled with ice. I tipped him out of pity. What a loser. Dont go there Users/Jonny

20080209 18:19:34 nbsp Pretty good but on the salty/heavy side. That seems par for the course for Italian restaurants for some reason. Dont know why, because its not normal for your average Italian homecooked meal. Still, I dont understand the bevy of negative comments.  Users/StellaChiara

20080209 21:05:54 nbsp Their lasagna is quite tasty.  Ive been here a few times, and always liked the food.  A little bit overpriced for what you get though. Users/IDoNotExist

20080218 14:01:55 nbsp I went there with my daughter last week and it isnt more classy than Davis other Italian restaurants.  That is only technically true at best.  The salads are downright boring and the pasta dishes are just okay.  Fuzio is better.  The pasta there is more interesting and they are about the same price.
 Users/GregKuperberg

20080219 05:20:17 nbsp I really like the sandwiches here particularly the meatball one.
yum. Users/jess&will

20080220 09:44:29 nbsp A plate of spinach leaves and some toasted walnut cost me 8 bucks. Im not going back there again. Users/JessicaYang

20080303 22:47:56 nbsp I frequently dine there with friends, and I dont really have any complaints about the food or service. However, Thursday night my friends and I were hanging out at the bar...and the bartender was a COMPLETE jerk and extremely rude. I asked him if he could make a mojito...his reply uhhh you really expect me to crush up a bunch of mint leaves just for you while all these other people wait? A simple no would have sufficed. Needless to say, I am not going back there again for drinks.
 Users/Ayesha

20080316 20:06:21 nbsp To the patron on the rocks comment, you clearly have never worked in a restaurant or bar, otherwise you would know that the standard pour for any single alcohol, rocks, up, or however you order it, is a simple few second count that is equivalent to a shot.  He could have put it in a smaller glass if it made you feel better, but its still the same amount.  He happens to be the best bartender in Davis.
Honestly, I think all of you who have insisted on critizing the restaurant so strongly should all give yourselves a taste of the retaurant business before complaining.  I have a feeling those comments would be quickly retracted. Users/italia7

20080328 12:56:46 nbsp bar used to be really cool on fridays, now its trendy and full of popcollar doucebags and frat trash like sogas and froggys. still best bar in davis though. $2 wells before midnight and good dj. Users/IanBenton

20080416 16:23:29 nbsp Ive been here a couple of times and its been kind of eh both times. The atmosphere is kind of nice, the service was good, but the food portions seem really small and not that exciting.  Users/GabeDavis

20080421 10:38:09 nbsp Does anyone know if Pasta? has an electronic DJ every Friday night? I just went for my first time last week and had a lot of fun. Davis needs more EDM! :) Users/MarkWatson

20080506 13:50:56 nbsp Pasta? has a nice upbeat atmosphere, particularly lively during dinner on Fri/Sat nights. Their nightclub can be good fun as well with a core set of really good DJs who each spin once a week...usually no cover... Friday a french DJ plays a mix of electronic/pop. Other nights are House...HipHop... Gets crowded and can be difficult to get a drink sometimes but they started a beer only table, and that seems to be relieving some of the pressure on the bartenders so they can turn out mixed drinks much quicker. Yeah, about the Patron, what difference does it make whether you have the same amount of alcohol on ice in a small glass (so that it looks full) or in a larger glass (so that it doesnt look full)? Maybe a drink on the rocks is supposed to traditionally be served in a short glass, but so what?

The staff and bartenders are really pleasant, and all of the female servers are very easy on the eyes, which is never a bad thing. Never had a problem with service. The bartender with the goatee is actually a great guy. Stop in to have a drink and chat with him on an uncrowded night and youll see. There is a female Brazilian server / assistant manager who is particularly sweet and charming. The manager Marcello is Italian and is a great guy as well. The food is really good for the most part, some dishes better than others. Fish dishes are usually great!

To provide a different perspective from some of the complainer comments, I think the price/portion value is quite good actually. They give you a lot of food. Someone mentioned being disappointed paying 8 bucks for a spinach salad that consisted of spinach leaves and some toasted walnuts. Well, this might come as a surprise to believers of the Supersize It philosophy, but the American assumption that more is better is not always the case. Some salads are simple, and the ingredients in the salads are listed on the menu. If the spinach salad didnt sound good to you for 8 bucks, then why did you order it? Duh! To me that kind of reaction translates into Im cheap and cant appreciate simplicity so I feel ripped off if everything under the sun is not thrown in my dish. I have tried Caffe Italia several times, for breakfast and dinner, and have left every time thinking the food was absolutely horrible... horrible as in the worst food in Davis... particularly at that price point... its not even authentic American Italian let alone authentic Italian Italian... but I guess you do get to draw on your table with crayons at Caffe Italia, so depending on the artistic skills of your dining companions, you might walk out with a priceless piece of artwork... Id rather skip the meal and pay my little nephew to sketch me a masterpiece! So to say the prices at Pasta are starting to approach the prices at Caffe Italia as if it were a bad thing doesnt really make much sense to me.

If you grew up thinking the Spaghetti Factory is where its at as far as Italian is concerned, you should probably stick with Caffe Italia. Otherwise, give Pasta? a try, youll probably enjoy yourself. Users/davisfugitive

20080508 19:40:19 nbsp Ive arrived in Davis in April and I can say that this is the best place to have lunch (and dinner during the week). Of course it will not be the best dinner ever during weekend due to the huge amount of people there. Users/Fede

20080509 19:42:20 nbsp Pasta? as a place to party on ThursSat nights seems to have replaced Sogas. Its definitely a lot nicer, cleaner (doesnt smell like beer stained carpets), and bigger. Oh yah, the toilets are also not clogged every 2 seconds. I also feel like there are a lot less sleezy, older dudes at Pasta?. My only beef with this place  the bartenders. Theyre rude, arrogant, lack bar tending knowledge, and seem like they hate their jobs (Im speaking of two in particular, Ill let you guess which ones). You have to wait a decent amount of time to get a drink (I guess like everywhere else), but the atmosphere is great if you like to dance!  Users/UCD4thyr

  To the Person above, The Bartenders at Pasta? are amazing especially Dante and Damien, they are never anything but nice and make great drinks, if you were a Davis regular you would know they were the bartenders at Cantina also and kept the place running over there, The DJs are now great, listen to what you request and actually play it too.  Users/DavisResident23

I completely agree with the above comment  the bartenders are fabulous and extremely knowledgeable  better than anyone else in town.

20080513 23:49:25 nbsp Ive eaten here for both Dinner and Lunch. Lunch is pretty good, but can get expensive if you dont do their 8 dollar deal. Dinner is really good. My husband and I both love the mushroom appetizer and my husband LOVES the Gnocchi with white truffle cream sauce. Yummy. Very rich and creamy. Users/JamieParker

20080530 22:28:19 nbsp The pasta is still very good.  Unfortunately, the portions are miserably small and not a very good value, even for very tasty pasta.  Fortunately, they serve bread with the meal, so you have enough food.  Unfortunately, if they run out of bread (as they did tonight), and arent able to get more (because their bread supplier, Village Bakery, has shut down for the night, you are left with a very small portion of tasty but overpriced pasta, and the desire to do something about that hungry feeling you still have by finding another place to get something inexpensive.  Despite this place having the best pasta Ive found in Davis so far, I dont go here very often because of the combination of high prices and tiny portions (even with the normally available bread).  If they lowered their prices, I would come here much more often.  If they gave you enough food that I was not really hungry afterwards, I would come here more often too.  But the combination of small portions and high prices means that I rarely get dinner here.  Given that pasta, or its ingredients, are very inexpensive, and that it would probably only increase their cost by a few cents to increase the portion sizes, and that they would pick up much extra business (and therefore profit) if they did so, I would think that they might want to provide larger portions.  But hey, I dont run the place... Users/IDoNotExist

20080602 17:35:12 nbsp i wish theyd bring back 2$ wells. i dont go there much anymore because its too damn expensive compared to g street. Users/IanBenton

20080614 17:52:50 nbsp Went with 2 friends, had the Carpaccio, which was pretty good (Im certainly no expert), friends had pasta dishes.  Like most other Davis restaurants, I only order things I cant make at home (this eliminates pasta and chicken dishes).  Verdict: only go here if theres a particular Italian dish youve never had before (or never had right or cant get elsewhere in Davis), its worth the money to know its made correctly.  Inexplicably crowded after 10pm on ThursdaySaturday nights.  Drinks are about average for Davis, people! Users/davisGeek

20080614 19:00:41 nbsp Perhaps it is crowded then because most restaurants in Davis close by 10, and most of those that are left are fast food or pizza places.  Note that the kitchen appears to close about 1/2 an hour before the restaurant does.  (I learned this the hard way.)   Users/IDoNotExist

20080702 10:17:35 nbsp And this (kitchen closing first)is different from every other restaurant how? Users/JJNasca

20080705 14:46:35 nbsp I enjoyed Pasta Q! Im quite picky about Italian eateries in America because they are usually really bad. (Not a fan of americanized cuisines.) Pasta Q actually tasted good. I had their clam pasta which was delicious, a bit light on flavor but good. They used cherry tomatoes which was a bit disappointing, would ave preferred sundried tomatoes. The service was good. Atmosphere is okay. Love how they refill the bread! Users/islandboy12

20080929 15:01:01 nbsp $2 Well drinks are back on.  10p to 11:30.  Also all kinds of drink specials that get posted on the blacklight board. Users/GoodTipper

20081025 03:52:09 nbsp Just ate here tonight with my girlfriend. It was a good experience. She had the dumplings, I had the pasta al pamadoro. both were very good, however I must say the portions could be upped a bit for the price. We were treated very well and were seated and served promptly. I recommend Pasta? and will be going back soon. Users/smittyhoy

20081026 16:00:52 nbsp I went here a few times, once for lunch, a couple times for dinner.

Ive always had at least a decent experience here.  Most of the food ranges from slightly above average to really good, though I usually stick with the safe stuff like fettucine alfredo/al Pesto, gnocchi, or the lasagna.  Of those dishes, their gnocchi and lasagna particularly stands out.  Service has always been friendly, and the interior feels clean.

I must comment on the bread here.  When I came for lunch, I could not stop eating it, especially after asking for butter (yank, I know).  Both the times I came for dinner, however, the bread was a little tough and perhaps even stale. Users/BrandonWong

20081028 15:45:43 nbsp I had fettuccini alfredo with chicken, and it was nothing remarkable. I could make it myself at home with no effort. Its fairly overpriced considering how bland it was. I was not able to finish my portion, but people with bigger appetites can easily finish it in one sitting. Overall, I wouldnt go there again. Users/Kiran

20081104 18:29:50 nbsp I went there today for lunch and the service was excellent.  The pasta was decent, and the desserts were great.  I would definatly go there again. Users/pplpenguin

20090109 15:07:55 nbsp My reaction after eating there for dinner last night was, Meh. Users/OscarSabino

20090203 16:28:55 nbsp I have been to Pasta? four times in the past year and a half. The first time the place was good, had the clams in spicy tomato sauce on linguini and my husband had gnocchi with truffle cream sauce, which he raved about. But that experience wasnt enough for us to remember to come back for a long time. The second time I went for lunch with girlfriends and sat outside. Again, it was good, but not enough to want to come back any time soon. The third time was in Dec. 08, about 8 months after that last lunch. This time our experience was MUCH more impressive. Having arrived at the height of dinner hour, we opt to eat at the bar. Being just the two of us, it wasnt that bad, however, the bartender was very busy and did not pay as much attention as a waiter would have. We ordered the house salad, which lacked in dressing big time, although knowing Italians and Italy that is how salads are served there. For dinner that night we ordered the Lasagna and the Gnocchi again. Both were EXCELENT. The Lasagna reminded us of Lasagna we ordered in Venice and drooled over. It was to die for. As an Italian and a cook, I was impressed. The gnocchi again was very good and impressive, if not extremely rich. The bartender seemed to have noticed his lack of attention towards us and asked us if we wanted dessert. We declined, but a few minutes later, he had a huge plate of tiramisu for us. It was good, for had a nice espresso flavor, thick cream and good chocolate powder on top. No charge for dessert. The next time we went was about a week later, we remembered our yummy entrees from before this time. This time we were seated immediately, even though it was crowded, we had a very nice waiter, though he forgot a few things, and plenty of really good bread. This time we ordered some penne with sausage and mushrooms with a light cream sauce and the simple pasta with pomodoro and meatballs. All very tasty and we were very pleased with our experience there. So, out of all our experiences, I say Pasta? is coming up in the world. It’s one of the better restaurants in Davis. I will totally be going back. Users/JamieParker

20090219 17:19:43 nbsp I went to Pasta? for lunch today, and I was quite impressed. I have always considered in that tier of Davis restaurants, like Bistro 33, which are quite trendy, rather expensive, and not totally worth the money. However, Pasta? is an exception to that: for $9 (not as cheap as my usual restaurants, but definitely doable even on a student budget) I got the best plate of gnocchi Ive ever had, which isnt saying all that much because I dont eat Italian that often, but it was definitely quite tasty and VERY filling, especially since I indulged in a good deal of the free bread with olive oil and vinegar they have out at lunch. Very tasty, and I wont need dinner until much later tonight.Users/StephenHudson

20090220 01:25:17 nbsp absolute awesome place, great place to take someone, the atmosphere is perfect and the staff is very friendly.  the food is great although pricey, but you cant go cheap right? Users/alexdavis

20090228 14:45:12 nbsp Ive never had lunch or dinner here, bu as fas as after hours, Pasta Q is managed by and employed with some of the most unfriendly people in the Davis nightlife industry.  They never extend any sort of courtesy.  They charge anyone who isnt a UCD student three dollars to get in even if its 5 minutes till last call, and then its damn near impossible to get a drink at their miniscule bar.  Theyve kicked out my friend as he is ordering a $50 round.   A bouncer called my friends girlfriend fat and basically tried to start a fight with our group.  Every time I ask a bouncer to let me in real quick through the back, they look at me like I am a criminal and insist I walk around and get in line.  If youre a townie like me, boycott this place for their ridiculous cover charge for nonstudents.  If you like the upscaleness try Bistro or Sophias, if you like hiphop, dance music, or dancing, try Little Prague, and if you like a large crowd of ciggarette smokers go to G street, if you like a crowd of predominantly students, go to Froggies. But if you like asshole roidmonkey bouncers and bartenders who pour like Mormons minus the smile, go to Pasta.  Users/GreezySweezy

20090308 21:28:22 nbsp In response to GreezySweezy:

The $3 cover charge applies every night, however you receive a $3 discount if you present your student ID. Allowing more people to enter for free a mere 5 minutes before last call is counterproductive because those who enter will want to spend extra time drinking the beverage(s) they ordered at the last minute, thus preventing the staff from emptying the bar and cleaning everything in a timely manner. The bar actually loses money by allowing this to happen because it has to pay its employees to stay longer, negating the profit that would be made off of your drink.

As far as entering real quick through the back is concerned, do you have any idea how many people attempt to avoid the line and cover by getting a friend or just going in for a second? It makes far more sense for the bouncing staff to prevent those who do not have hand stamps already from doing so. Otherwise one of them would have escort the individual to make certain they do return promptly, thus leaving the entrance which he is being paid to secure.

I was not present, nor do I know the details about your friend being kicked out while ordering, but the chances are he was behaving in a belligerent manner. The staff would not attempt to get rid of a paying patron for no reason. The fact of the matter is that the bar staff attempts to help customers in order in as timely a manner as possible, and the bouncer are there to escort out those who are a danger to themselves or others.

The bottom line is that there are established policies and a primary entrance for a reason. Contrary to your apparent belief, you are not better than everyone else who frequents the establishment, and you deserve no special benefits. If you visit the bar in the future, or any bar for that matter, you will find that your experience will be exponentially better if you leave your superiority complex at home. Users/5thyear

20090315 22:14:01 nbsp Had dinner here and the food was mediocre.  I had the fetuccini with salmon and it wasnt good.  It tasted weird.  My boyfriend had some sort of rigatoni and it tasted like I couldve made it at home.  Not worth it.  The good things were: the service, food came out quick, and there was unlimited bread.  Users/renee415

20090404 09:10:34 nbsp Ive never eaten here, but for going out at night this place is awful. The staff are some of the rudest people Ive ever come across at any establishment in Davis. They have a ridiculous $3 cover charge, but thats not what angers me. Apparently at a certain point that is well before 2am closing time if you step outside of their establishment you wont be allowed back in, even with a handstamp showing that you paid to get in. Im not talking five minutes before 2am, this was easily more than half an hour before last call when they wouldnt let us back in. Of course they dont let you know that on your way out. Its just when youre trying to get into the still open establishment that they arbitrarily inform you that you will not be allowed back in, despite having paid to get in and having the requisite stamp to show it. Oh, and the bouncers love to talk tough to women and threatened my 50 friend.  If you want to get treated like crap and get ripped off, then this is your place.   Users/Verwoerd

20090405 12:46:48 nbsp The Sac Bee published a humorously scathing (and sadly accurate) review of this restaurant today: http://www.sacbee.com/117/story/1751594.html  Users/RC

20090427 21:24:55 nbsp Really wasnt impressed with this place, especially for the price. I kinda felt like they had 3 main sauces and charged differently for the type of noodle you chose. I always had good service here, however. Users/BrookeB

20090510 17:23:10 nbsp The pasta dish I had yesterday (the name was something like All Amaraciatta) is really good.  The sauce was great.  As a warning, I think it may have been a little spicy too. Users/phyrephox

20090531 05:15:55 nbsp Ive been here a couple times, though not recently. It has a very posh, but laidback feel to it. Suited me nicely. The food was tasty, a step up from most of the Italian chains around, though you do pay for the difference. The cream sauce was delicious, as rich and, well, creamy as one would expect it to be. Thats the main thing that stuck in my mind. Overall, just a great place for a night out, especially with a small group or just two. Ill have to go again soon so I can give more specifics.  Users/KBathory

20090621 02:35:39 nbsp Pasta Q deleted my comment about how they like to kick people out and force them to drink their booze before its closing time. Thanks for telling us before we bought the drinks instead of being overgrown punks. If you dont want to work till 2am, get a different job that doesnt require standing and checking ids.  Users/MyNameDoesntMatter
  Actually, Users/NickSchmalenberger, who has no association with Pasta? as far as I know, deleted it. This was probably because it sounded like a drunken rant that didnt really do much beyond insult the bouncers. However, if youd like to explain what happened, then that would probably better get across the point you are trying to make. Oh, also: if youre only going to be here for the one comment about the bouncers, then a name like mynamedoesntmatter is basically going to tag your review as being written by someone who either didnt care enough to be a regular editor on the wiki, or wasnt willing to stand behind their words with their real name.Users/JoePomidor

20090708 20:50:25 nbsp Yeah, I chose this name because I purposely created it to review Pasta Q. The food is usually pretty sub par. But believe me, what I experienced that night was lame. I know it sucks to work until closing time when there is no business. But to be so rude to customers, and deny them the simple pleasure of sitting down and enjoying a drink they just bought not 10 min before that. And to have a bouncer tell you that they close at a specific time, but essentially tough luck, get the f out in 10 min, that is lame. If you wanted to go home earlier, you shouldnt have chosen a job that requires late working hours whilst you do almost nothing the whole time except for chat with your friends and check ids. Oh yeah, and my name really doesnt matter on here. Users/MyNameDoesntMatter

20090725 16:14:05 nbsp overpriced for their portions... imagine a plate with a diameter of a foot, then imagine one layer (and yes, i mean one layer)in the middle of the plate with a diameter of no more than 5 inches of pasta and cheese sauce and baconbits... this entre was close to $10 (you were better off just making your own kraft mac and cheese or buying frozen) and then in the ravioli entre, there was a count of only 7, for the price of $13$14 (you were better off going to olive garden) anyway this place has the worst food and the worst pricing..it isnt worth it at all..along with everything else in downtown davis its OVERPRICED mixed in with a HUGE LACK in quality...

that being said,

what was with that notice of suspension? now it says OPEN in big ole red lettering...?  there were customers in there even with the notice...
(so im watching The Mummy Returns while writing this post, id rather fight with the mummy and take a bite out of his arm than to go here again...) Users/TriPpy

20090801 17:10:32 nbsp Ive only been once, but the food was delicious.  I got gnocchi with truffle cream sauce and the person I was eating with got a seafood pasta dish, and they were both tasty.  There was enough to take leftovers home, too.  Will definitely go again. Users/DanaSullivan

20090801 23:50:22 nbsp the name is lame! the food is good. good lunch special. Users/jonjon

20090915 12:11:08 nbsp I wasnt such a big fan of this place as a single bachelor guy.  The food just didnt work for me, and the ambiance felt a little... I dont know, forced?

But now as a young parent, Im a huge converted fan.  The fast/kind service is hugely appreciated.  Food comes out prompt and as ordered, and my young kids love their special kids offerings.  And for us adults, the pasta norcina is very, very good.  Ive been here twice in the last week.  Now that Strings is closed (no tears lost), well be here regularly. Users/ChonT

20090915 12:40:12 nbsp I dont like their policy on birthday cakes.  Ive got a friend with a gluten allergy so I made her a special cake from nut flour for her birthday.  Initially we were going to have a big dinner here but then I was told they charge a cake cutting fee if you bring one from home (even if you cut it yourselves).  Their rationale is that they lose money they would otherwise make on the dessert menu.  Yuck.  I changed the reservations to Fuzios instead because they dont charge and even kept the cake in their fridge for us until it was time to surprise her.

Too bad they cant think through the cake policy and realize that instead of losing money on desserts (none of us would have ordered anyway) they end up losing out on an even bigger dinner reservation.  It was a 21st celebration with 12 people so at least $100 was spent on drinks alone. Users/OliviaY

20091018 10:33:43 nbsp I came here with a group of 12 a few nights ago; the staff was very polite and accommodating, especially when it came to splitting our check. Was the food the best, or the most authentic, Ive ever had? No. But the atmosphere was nice, our server was wonderful, we never had shortages of bread or water, and our food was delivered promptly.  Users/acparsons

20091109 00:24:30 nbsp I went here with my 5 housemates.  Upon entering, we were greeted and seated.  Service was prompt and attentive.  Im not sure if the bread is refillable but we got one refill before they told us they were out of bread...at 7:30pm I find that hard to believe but whatever.  I ordered spaghetti carbonara and it was pretty good.  I am not one to judge what is authentic and what Pasta should taste like, but it tasted pretty good to me.  I was, however, extremely disappointed at the serving size.  It was amusing for me to watch each of my housemates faces in shock as they stared at their 15 (after the 18% mandatory party tip of course) dollar plate of pasta, which consisted of possibly 67 bites, placed in front of them by the waiter.  At least the service was acceptable and the food was tasty.  Overall, my experience was bittersweet. Users/BenLee

20091211 18:51:04 nbsp Im not going to go to some place that thinks their pasta is questionable. Users/William42
  LOL genius Users/TheShah SS

20091217 22:35:07 nbsp My roommate and I come here regularly. The service is uniformly excellent. The food is consistently good; but in my opinion it isnt excellent.. there just isnt enough flavour. The portions are usually just about right for me, but it probably isnt the best choice for when youre famished. They have a variety of domestic and imported wines, but I havent found one that really blew my socks off yet. Weve tried a couple dessertsthe most memorable were some sort of lemon balls or something. I forget the name, but they were good! Users/AndrewPotter

20100110 18:25:30 nbsp Why does the top of the article say that Pasta Q is incorrect? While that is not what the restaurant signage shows, the website for the restaurant refers to itself as Pasta Q leading me to believe this is acceptable. Could someone clear this up for me? Users/NicoleWoodyard
  Page names on the wiki cant have question marks in them. Users/JasonAller  (and neither can domain names)
  To echo and expand upon the above, question marks in web addresses have all kinds of problems with them.  Because of that, both Pasta? and the Wiki use a Q instead, as neither their website address nor the address to this wiki entry can have a question mark in the URL without causing all kinds of subtle problems.  In short, titles with question marks arent internet friendly, so Pasta? uses the alternate title PastaQ for internet addresses... and so does the wiki. Users/JabberWokky Evan JabberWokky Edwards
  But in spite of these technical restrictions, Pasta? (with the question mark) is the real name of the restaurant.   Users/CovertProfessor
  It is often pronounced Pasta Q by people who work there.  Users/IDoNotExist
   I pronounce it pastAH? with my voice higher at the end.  It sounds totally moronic.  cp

20100325 15:19:42 nbsp I had the eggplant parmigiana (which had a really...authentic (?) sounding name on the menu)last night. It wasnt the best eggplant parmigiana I had ever had (a little too soggy and swimming in sauce) but the eggplant parmigiana was tasty and when paired with the potatoes and veggies left me full and contented (not stuffed). It is a bit pricey, but only a few dollars difference from the eggplant parmigiana dinners I get at Italian restaurants at home. The drinks looked good (and big) and the service was excellent. Aree rating: 7.5/10 (Also, I dont think a review should be used as this restaurants bio...just saying!) Users/ArianeMetz

20100503 13:49:34 nbsp This is the only place my 18 year old son wants to go out to besides Chuys or pizza.  He likes spicy sausage penne and bread. They always fill him up on bread and he says the sauce is way better than Fuzios.  It just isnt my favorite place as I find most of the other dishes bland or too creamy. Not bad...just good. We have always had very good service here.   Users/LokiAbbi

20100624 22:46:19 nbsp Contrary to what is written below, below, Pasta is open for club night Thursday, Friday and Saturday nights.  Users/RalphyB

20100727 17:59:49 nbsp Is only closed for summer. Will be open again once the regular sessions of UCD begin anew. Users/WesOne
  has been confirmed by three different sources, two former employees and one friend who has negotiated Bouncing staff for them, Pasta Q (or affectionately, Pasta?) has closed for good.  Sigh..  sad to see it go, but hey.. more business for everyone else now. Yay!  Users/WesOne Wes

20100729 02:48:59 nbsp Sad to see them go.  Perhaps they will be replaced by a new Thai restaurant or a frozen yogurt shop.  It would be great if Davis had one of those at long last... Users/IDoNotExist
  Tres Hermanas Mexican actually. Users/hankim
    Well, it would definitely be nice to have a good Mexican place.  Anyone know why PastaQ closed?  They seemed to have a lot of people there on most of the occasions that I went  although as noted above, Id have gone a lot more often had they lowered their prices to something more inline with what they were serving.   Users/IDoNotExist

20100811 11:23:20 nbsp I hate to see businesses go out, especially when its a small business, even though this is a chain. But this place was horribly managed, and their club staff was absolutely horrible. I was kicked out of here stone sober when I went out the wrong entrance, and they told me to leave when I was the DD that night. They could have had a huge lawsuit on their hands if my friends didnt make it home alright, needless to say how horribly I was treated as someone who dropped about 150 bucks there a month just on drinks. Users/aggie2009

20100927 07:58:47 nbsp NO WAY! THEY CLOSED!? How sad! It was a nice place for a drink :/ Users/ArianeMetz

20101001 11:22:44 nbsp Good Riddance Q! Users/GarrettGallegos


text:
* /****************************************************************
* Copyright (C) 1997 Lucent Technologies
* All Rights Reserved
*
* Permission to use, copy, modify, and distribute this software and
* its documentation for any purpose and without fee is hereby
* granted, provided that the above copyright notice appear in all
* copies and that both that the copyright notice and this
* permission notice and warranty disclaimer appear in supporting
* documentation, and that the name of Lucent or any of its entities
* not be used in advertising or publicity pertaining to
* distribution of the software without specific, written prior
* permission.
*
* LUCENT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
* INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS.
* IN NO EVENT SHALL LUCENT OR ANY OF ITS ENTITIES BE LIABLE FOR ANY
* SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER
* IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
* ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
* THIS SOFTWARE.
* ****************************************************************/

	subroutine calcr(n, p, x, nf, r, ui, ur, uf)
	integer n, p, nf, ui(*)
*	n observations, p parameters
	double precision x(p), r(n), ur(*)
	external uf

	integer i, nerror

	nerror = 0
	call conval(n, p, x, r, nerror)
	if (nerror .ne. 0) then
		nf = 0
	else
		do 10 i = 1, n
 10			r(i) = r(i) - ur(i)
		endif
	end

	subroutine calcj(n, p, x, nf, jac, ui, ur, uf)
	integer n, p, nf, ui(*)
	double precision x(p), jac(n,p), ur(*)
	external uf

	integer nerror

	nerror = 0
	call jacval(n, p, ui(1), x, jac, nerror)
	if (nerror .ne. 0) nf = 0
	end

	program fnl21
	integer liv, lv, nmax, pmax, nzmax
	parameter(nmax = 200, pmax = 20, nzmax = nmax*pmax)
	parameter(liv = 82 + 4*pmax)
	parameter(lv = 105 + pmax*(nmax + 2*pmax + 21) + 2*nmax)
	integer i, n, no, nz, p
	character*80 stub
	double precision b(2,pmax), d(pmax), v(lv), x(pmax)
	integer iv(liv)
	external calcj, calcr
	character*40 endmsg(2)
	character*5 arg2
	logical amplfl

	integer prunit
	parameter (prunit = 21)

*** The following are only needed to satisfy calling sequences...
	integer mxrow, mxcol
	integer jp(nmax+1)
	integer*2 ji(nzmax)
	double precision l(pmax), u(pmax), lrhs(nmax), urhs(nmax)
	double precision inf

	call getarg(1,stub)
	call jacdim(stub, n, p, no, nz, mxrow, mxcol)
	if (n .gt. nmax .or. p .gt. pmax) then
		write(*,*) 'Problem too large: ',n,' equations,',
     1				p, ' variables'
		stop
		endif
	call jacinc(n, p, nz, jp, ji, x, l, u, lrhs, urhs, inf)
	call densej
	do 10 i = 1, n
		d(i) = 1
		b(1,i) = l(i)
		b(2,i) = u(i)
 10		continue
	call divset(1, iv, liv, lv, v)
	amplfl = .false.
	call getarg(2,arg2)
	if (arg2 .eq. '-AMPL') then
		amplfl = .true.
		iv(prunit) = 0
		endif
	call dn2gb(n, p, x, b, calcr, calcj, iv, liv, lv, v, nz, lrhs,
     1		   calcr)
	write(endmsg, '(''dn2gb return code ='',i3/''final f ='',
     1 1p,g18.10)') iv(1), v(10)
	if (amplfl) then
		call wrtsol(endmsg,2,x,urhs)
	else
		write(*,*) endmsg
		endif
	end

max_issues_repo_name: cpatrick/calatk

max_forks_repo_name: cpatrick/calatk


text:
	SUBROUTINE HINIT  ( iret )
C************************************************************************
C* HINIT - VG								*
C*									*
C* This subroutine initializes the variables for a device driver.	*
C* Each parameter must be specified for each device.			*
C*									*
C* HINIT  ( IRET ) 							*
C*									*
C* Output parameters:							*
C*	IRET		INTEGER		Return code			*
C**									*
C* Log:									*
C* S. Schotz/GSC	 2/90	Removed lpat initialization		*
C* S. Schotz/GSC	 4/90	Added weather and dot base scale	*
C* S. Schotz/GSC	 9/90	Load color table and arrow head size	*
C* M. desJardins/NMC	 1/92	Removed color specification		*
C* M. desJardins/NMC	 1/92	Added filflg				*
C* E. Wehner/EAi	10/96	Added scaling factors for pips		*
C* C. Lin/EAI            6/97	Initialize 'S' coordinates 		*
C* S. Maxwell/GSC        6/97   Documentation changes                   *
C* S. Maxwell/GSC        6/97   Removed SAVRES                          *
C* M. Linda/GSC		 7/97	Added bscall				*
C* S. Jacobs/NCEP	 2/98	Added crvscl				*
C* I. Durham/GSC	 4/98	Added bscals and bscali			*
C* S. Jacobs/NCEP	 4/98	Modified bscalp and bscalt		*
C* A. Hardy/GSC		11/98	Added ncirhw                            *
C* S. Jacobs/NCEP	 5/99	Added bscalf				*
C************************************************************************
	INCLUDE		'ERROR.PRM'
	INCLUDE		'DEVCHR.CMN'
	INCLUDE		'DVWNDW.CMN'
C------------------------------------------------------------------------
	iret = NORMAL
C
C*	Initialize device characteristics
C
C*	nnfrm = number of frames ( not used; set to 1 )
C*	ndtyp = device type ( 1 = direct access, 2 = sequential )
C
	nnfrm  = 1
	ndtyp  = 2
C
C*	colcmp = color compute flag ( .true.  = color device )
C*				    ( .false. = monochromatic device )
C
	colcmp = .true.
C
C*	nncolr = number of device colors.  ( A maximum of 16 colors may
C*	be initialized.  nncolor may be larger. )
C
	nncolr = 32
C
C*	nlthw = hw line type flag  ( 0 = sw only, 1 = hw available )
C*	ntxhw = hw text flag       ( 0 = sw only, 1 = hw available )
C*	nwdhw = hw line width flag ( 0 = sw only, 1 = hw available )
C*	nmkhw = hw marker flag     ( 0 = sw only, 1 = hw available )
C
	nlthw  = 1
	ntxhw  = 1
	nwdhw  = 1
	nmkhw  = 1
C
C*	ileft  = left device coordinate
C*	ibot   = bottom device coordinate
C*	iright = right device coordinate
C*	itop   = top device coordinate
C*	aspect = width to height pixel aspect ratio
C
	ileft  = 0
	ibot   = 0
	iright = 1000
	itop   = 1000
	aspect = 1.
C
C*      isxoff = x offset of the 'S' coord relative to 'D' coord
C*      isyoff = y offset of the 'S' coord relative to 'D' coord
C*      iswdht = width of the 'S' coord system
C*      ishght = height of the  'S' coord system
C*      not used in PS driver
C
        isxoff  = 0
        isyoff  = 0
        iswdth  = iright - ileft
        ishght  = itop - ibot
C
C*	bscalc = text scaling factor ( 1.0 is 7 x 9 device units )
C*	bscala = base arrow scaling factor ( length of arrow @ speed 1.0 )
C*	bscalh = base arrow head size factor
C*	bscalb = length of wind barb base
C*	bscalm = marker scaling factor ( 1.0 is 7 x 7 device units )
C*	bscalw = weather symbol sclaing factor (1.0 is 11 x 11 device
C*	 	 units )
C*	bscald = dot width scale factor for weather symbols
C*	lpscal = scaling term for all line patterns
C*	bscall = logo scaling factor
C*      bscalp = scaling for special pattern lines
C*      bscalt = second scaling for special pattern lines (not used)
C*	bscals = hash mark size scaling factor
C*	bscali = hash mark spacing scaling factor
C*	bscalf = point reduction filter scaling factor
C
	bscalc = 1.
	bscala = 5.
	bscalh = 25.
	bscalb = 20.
	bscalm = 1.
	bscalw = bscalc * 2.0
	bscald = 1.4
	lpscal = 1
	bscall = bscalc * 13.5
	bscalp = 2.
	bscalt = 2.
	bscals = 20.
	bscali = bscals / 4.0
	bscalf = 1.0
C
C*	Set the scaling factor for smooth curves.
C
	crvscl = 30.0
C
C*	filflg = fill hardware flag
C
	filflg = .false.
C
C*	evtflg = check for event flag
C
	evtflg = .false.
C
C*	ncirhw = hardware circl flag
C
	ncirhw = 1
C
C*	Do not change anything below this line.
C------------------------------------------------------------------------
	ispanx = ISIGN ( 1, ( iright - ileft ) )
	ispany = ISIGN ( 1, ( itop - ibot ) )
C*
	RETURN
	END

max_stars_repo_name: oxelson/gempak

max_issues_repo_name: oxelson/gempak

max_forks_repo_name: oxelson/gempak


module Ackp

implicit none (type, external)

contains

recursive pure integer function Ap(m, n) result(A)
integer, intent(in) :: m,n

if (m == 0) then
  A = n+1
elseif (n == 0) then
  A = Ap(m-1, 1)
else
  A = Ap(m-1, Ap(m, n-1))
end if
end function Ap

end module Ackp

program AckermannPeter

use Ackp

implicit none (type, external)

integer :: Ack, M, N
character(8) :: buf

if (command_argument_count() /= 2) stop 'input M,N positive integers'

call get_command_argument(1, buf)
read(buf,*) M

call get_command_argument(2, buf)
read(buf, *) N

Ack = Ap(M, N)

print *, Ack
end program AckermannPeter