text:
C
C
*+ mapcat_next

       subroutine mapcat_next(next_map,status)
C      ---------------------------------------
C
C Return the next free map entry
C
C Returned:
C   Next free map entry
       integer          next_map
C   Status word
       integer          status
C
C The next available catalogue entry is found. If the catalogue is
C full then the status value is set to ILL_NXTMAP.
*-
       include 'mapcat_cat.inc'
       include 'mapcat_errors.inc'

       integer      imap

       if (status.ne.0) return
       next_map = -1
       do imap = 1,max_cat_entries
         call mapcat_read(imap,status)
         if (status.eq.0) then
           if (current_map_status(ip_data).eq.false) then
             if (current_map_status(ip_access).eq.access_clear) then
                next_map = imap
                goto 100
             end if
           end if
         end if
       end do
100    continue
       if (next_map.eq.-1) then
         status = ill_nxtmap
       end if
       call mapcat_err(status,'mapcat_next','Unable to find entry')
       end

ext: f

max_stars_repo_name: CavendishAstrophysics/anmap

max_issues_repo_name: CavendishAstrophysics/anmap

max_forks_repo_name: CavendishAstrophysics/anmap


text:
       subroutine onethirdoctaves(fdelta,yt,m,l,pref2,lfull)

c called by subroutine subf7 (source name some variation on SUBF7Z)
c      extracted as a separate routine - BMS July 8 1994

c pass in fdelta = bin width of FFT
c         yt = magnitudes returned by FFT (in compatible units!)
c                                      (may or may not be weighted)
c         m = number of bins/ FFT coefficients
c         pref2 = square of the reference pressure
c         lfull = flag to show if this is a full waveform to be averaged or not
c return  l = array of 1/3 octave band levels

       real UF(0:41),sum,dblevel,bandenergy
       real fdelta,yt(1),pref2
       real l(43)
       logical lfull
       integer NBAND

c The 1/3 octave band boundaries are:-
       data ( UF(i), i=0,41 )/   1.118034,     1.414217,
     1            1.788854,     2.236068,     2.806243,     3.549648,
     1            4.472136,     5.612486,     7.099296,     8.944272,
     1           11.180340,    14.142136,    17.888544,    22.360680,
     1           28.062430,    35.496479,    44.721360,    56.124860,
     1           70.992957,    89.442719,   111.803399,   141.421356,
     1          178.885438,   223.606798,   280.624304,   354.964787,
     1          447.213595,   561.248608,   709.929574,   894.427191,
     1         1118.033989,  1414.213562,  1788.854382,  2236.067978,
     1         2806.243040,  3549.647870,  4472.135955,  5612.486080,
     1         7099.295740,  8944.271910, 11180.339887, 14142.135622/

c Now do the 1/3 octave band integration;  (differentiate carefully
c between c bins and bands!  Bands are 1/3 octaves, bins are FFT steps.
c The first bin (yt(1)) is centered at frequency 0.0. Let us work up
c from that, through bins at intervals of FDELTA, until we find a
c frequency within the 1/3 octave band range, then sum up the yt's
c until we reach a frequency c outside the range; then we move on
c to the next 1/3 o.b.     *****  DO NOT INCLUDE D.C. (bin 1)  *****
       INOW = 2

		ijkl = 0
c		print *,'ijk',ijkl

c bin top frequency
       FREQNOW = fdelta/2. + fdelta
c		print *,freqnow
c Define the 1/3 octave band number

	do 200 NBAND=1,40
c		print *,'top'
c A and B are the boundaries of this 1/3 octave band:-
           BOTTOMFREQ = UF(NBAND-1)
           TOPFREQ = UF(NBAND)

c		print *,topfreq,bottomfreq
C SUM is a sum representing Integral(from BOTTOMFREQ to TOPFREQ) of
C F(omega)**2.d(f), where BOTTOMFREQ and TOPFREQ are expressed in Hz

C First, is the top of this bin at least in part above the bottom
c of the 1/3 octave band?  If not, go to the next bin.
	do 300 istep=inow,m
              if (freqnow .gt. bottomfreq) go to 310
              freqnow = freqnow + fdelta
 300       continue

c		print *,'300',freqnow,inow,m
c if we're here, we've run out of bins
           go to 500

 310       inow = istep

		ijkl = ijkl + 1
c		print *,ijkl,'   310  ',freqnow,topfreq, bottomfreq

c sum in the partial bin.
c is the top of the bin above the top of the band?  (All band in bin).
           if (freqnow .gt. topfreq) then
              sum = (topfreq - bottomfreq)*yt(istep)/fdelta
c and on to the next band, which will be partially included in this bin
           else
              sum = (freqnow - bottomfreq)*yt(istep)/fdelta
c and on to the next bin
              inow = inow+1
              freqnow = freqnow + fdelta
              do 400 istep = inow,m
c for this bin, is its top above the top of the band?
                 if (freqnow .ge. topfreq) go to 410
c if not, add all its contents into sum
                 sum = sum + yt(istep)
c and go to the next bin,
                 freqnow = freqnow + fdelta
 400          continue
c if we're here, we've run out of bins
c		print *,'400'
              go to 500

c Bin top above band top, so sum in the partial bin
 410          sum = sum +
     $           (topfreq-(freqnow-fdelta))*yt(istep)/fdelta
c on to the next band, which will be partially included in this bin
              inow = istep
           endif
c but first, work out a dB level for this band
c Now, we need to convert this integral (sum) into dB; first, calculate
c the energy within the band (=SUM) & divide by 70msec (.07 sec)
c to get the units right and to account for the integration time
c of the ear.
           BANDENERGY = SUM/0.07
c Subtract 3dB because this loudness is due to the energy of the
c whole N-wave, which (usually) is heard as 2 events (as the events
c are separated by a time greater than the integration time of the
c ear) so we need to split the energy into two.  Hence the 3dB
c reduction (before the loudness calculation).
           if (BANDENERGY .LE. 0.0) then
              DBLEVEL = 1.E-10
           else
              DBLEVEL = 10.0*log10(BANDENERGY/PREF2)
              if (lfull) DBLEVEL = DBLEVEL-3.
           endif
           l(NBAND) = DBLEVEL

 200   continue
c got all the bands filled
c		print *,'200'
       go to 700

 500  continue
c		print *,'500',NBAND,NNBAND
C In case we ran out of data before running out of bands (which is
c highly likely), we have to stop integrating and set this and all
c higher bands to 0.0
       do 600 NNBAND=NBAND,40
           l(NNBAND) = 0.0
 600   continue

 700   continue
       return
       end

max_stars_repo_name: mandalin/DissertationPostProcessing

max_issues_repo_name: mandalin/DissertationPostProcessing

max_forks_repo_name: mandalin/DissertationPostProcessing


text:
C Copyright(C) 1999-2020 National Technology & Engineering Solutions
C of Sandia, LLC (NTESS).  Under the terms of Contract DE-NA0003525 with
C NTESS, the U.S. Government retains certain rights in this software.
C
C See packages/seacas/LICENSE for details

C=======================================================================
      SUBROUTINE SORLNK (A, NSETS, NEWELB,
     &   LENF, NLNKF, LINKF, IF2EL, IF2EL2, IE2ELB)
C=======================================================================

C   --*** SORLNK *** (MESH) Sort faces
C   --   Written by Amy Gilkey - revised 03/10/88
C   --
C   --SORLNK resorts all the faces into new element block sets.  This
C   --is done by coping the faces, then renaming the arrays.
C   --
C   --This routine uses MDFIND to find the following dynamic memory arrays:
C   --   LINKF - for length only
C   --   IF2EL - for length only
C   --
C   --Parameters:
C   --   A - IN - the dynamic memory base array
C   --   NSETS - IN - the number of element block sets in LINKF
C   --   NEWELB - IN - the new element block set for each face
C   --   LENF - IN/OUT - the cumulative face counts by element block for LINKF
C   --   NLNKF - IN - the number of nodes for each element block
C   --   LINKF - IN/OUT - the unsorted connectivity for all faces
C   --   IF2EL - IN/OUT - the element number of each face in LINKF
C   --   IF2EL2 - IN/OUT - the secondary element number of each face in LINKF
C   --   IE2ELB - IN - the element for each element block
C   --
C   --Common Variables:
C   --   Uses NELBLK of /DBNUMS/

      common /debugc/ cdebug
      common /debugn/ idebug
      character*8 cdebug

      include 'dbnums.blk'
      COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET
      LOGICAL IS3DIM

      DIMENSION A(*)
      INTEGER NEWELB(*)
      INTEGER LENF(0:NSETS)
      INTEGER NLNKF(NELBLK)
      INTEGER LINKF(*)
      INTEGER IF2EL(*), IF2EL2(*)
      INTEGER IE2ELB(*)

      LOGICAL SOMMOV

C   --Check that some faces will move

      SOMMOV = .FALSE.
      DO 110 IELB = 1, NSETS
         DO 100 IFAC = LENF(IELB-1)+1, LENF(IELB)
            IF (IELB .NE. IABS (NEWELB(IFAC))) THEN
               SOMMOV = .TRUE.
               GOTO 120
            END IF
  100    CONTINUE
  110 CONTINUE
  120 CONTINUE

      IF (SOMMOV) THEN
         CALL MDRSRV ('XLENF', KLENF, 1+NSETS)
         CALL MDFIND ('LINKF', IDUM, LENLNK)
         CALL MDRSRV ('XLINKF', KLINKF, LENLNK)
         CALL MDFIND ('IF2EL', IDUM, LENF2E)
         CALL MDRSRV ('XIF2EL', KIF2EL, LENF2E)
         IF (IS3DIM) CALL MDRSRV ('XIF2E2', KIF2E2, LENF2E)
         CALL MDSTAT (NERR, MEM)
         IF (NERR .GT. 0) GOTO 130

         CALL CPYINT (1+NSETS, LENF, A(KLENF))
         CALL CPYINT (LENLNK, LINKF, A(KLINKF))
         CALL CPYINT (LENF2E, IF2EL, A(KIF2EL))
         IF (IS3DIM) CALL CPYINT (LENF2E, IF2EL2, A(KIF2E2))

         CALL SORLNX (NSETS, NEWELB, IE2ELB,
     &      NLNKF, A(KLENF), A(KLINKF), A(KIF2EL), A(KIF2E2),
     &      LENF, LINKF, IF2EL, IF2EL2)

         CALL MDDEL ('XLENF')
         CALL MDDEL ('XLINKF')
         CALL MDDEL ('XIF2EL')
         IF (IS3DIM) CALL MDDEL ('XIF2E2')
         CALL MDSTAT (NERR, MEM)
         IF (NERR .GT. 0) GOTO 130
      END IF
  130 CONTINUE
      RETURN
      END

max_stars_repo_name: jschueller/seacas

max_issues_repo_name: jschueller/seacas

max_forks_repo_name: jschueller/seacas


text:
Robert Arneson Park is a five acre parks city park located in Wildhorse.

The parks namesake, Robert Arneson was a Twentieth Century American artist and one of the seminal figures in West Coast ceramic funk art.  He taught at UCD throughout his career and was famous for his whimsical sculptures.  The Eggheads were created by Arneson. Originally named Frank Lloyd Wright Park. It was changed to Robert Arneson Park in 2001. It appears that the citys open container ordinance does not apply to this park.

Also see Parks for info on other local parks

max_stars_repo_name: voflo/Search

max_issues_repo_name: voflo/Search

max_forks_repo_name: voflo/Search


text:
program main_model

  use mpi
  use mg_namelist
  use nhydro
  use mg_netcdf_out

  implicit none

  integer(kind=4):: nxg    ! global x dimension
  integer(kind=4):: nyg    ! global y dimension
  integer(kind=4):: nzg    ! z dimension

  integer(kind=4):: npxg   ! number of processes in x
  integer(kind=4):: npyg   ! number of processes in y

  integer(kind=4), dimension(4) :: neighb ! S, E, N, W
  integer(kind=4) :: nx, ny, nz  ! local dimensions

  real(kind=8), dimension(:,:), pointer   :: dx, dy
  real(kind=8), dimension(:,:,:), pointer :: zr, zw

  real(kind=8), dimension(:,:,:), pointer :: u,v,w
  real(kind=8), dimension(:,:), pointer :: h

  real(kind=8), dimension(:,:), pointer   :: umask, vmask

  integer(kind=4) :: k
  integer(kind=4) :: np, ierr, rank
  integer(kind=4) :: nh
  integer(kind=4) :: pi, pj
  integer(kind=4) :: i, j
  real(kind=8)    :: x, y, x0, y0

  ! global domain dimensions
  nxg   = 128*2
  nyg   = 128*2
  nzg   = 64!128/8

  npxg  = 2
  npyg  = 2

  call mpi_init(ierr)
  call mpi_comm_rank(mpi_comm_world, rank, ierr)
  call mpi_comm_size(mpi_comm_world, np, ierr)

  if (np /= (npxg*npyg)) then
     write(*,*) "Error: in number of processes !"
     stop -1
  endif

  nx = nxg / npxg
  ny = nyg / npyg
  nz = nzg

  !- read the NonHydro namelist file if it is present
  !- else default values and print them (or not).
  call read_nhnamelist(vbrank=rank)

  ! fill the neighbours array
  call mm_define_heighbours(npxg, npyg, neighb)

  allocate(u(nz,ny,1:nx+1))
  allocate(v(nz,1:ny+1,nx))
  allocate(w(1:nz+1,ny,nx))

  u(:,:,:)    =  0._8
  v(:,:,:)    =  0._8
  w(2:nz,:,:) = -1._8
  w(1,:,:)    =  0._8
  w(nz+1,:,:) =  0._8

  if (cmatrix == 'simple') then
     ! grid definition
     allocate(dx(0:ny+1,0:nx+1))
     allocate(dy(0:ny+1,0:nx+1))
     allocate(zr(nz,0:ny+1,0:nx+1))
     allocate(zw(nz+1,0:ny+1,0:nx+1))

     dx(:,:) = 1._8
     dy(:,:) = 1._8

     do k=1, nz
        zr(k,:,:) = k - 0.5_8
        zw(k,:,:) = k - 1._8
     end do

     zw(nz+1,:,:) = nz

  elseif (cmatrix == 'real') then

     ! grid definition
     allocate(h(0:ny+1,0:nx+1))
     allocate(dx(0:ny+1,0:nx+1))
     allocate(dy(0:ny+1,0:nx+1))
     allocate(zr(nz,0:ny+1,0:nx+1))
     allocate(zw(nz+1,0:ny+1,0:nx+1))

     dx(:,:) = 1._8
     dy(:,:) = 1._8

     nh = nhalo

     pj = rank/npxg
     pi = rank-pj*npxg

     x0 = real(nx,kind=rp)
     y0 = real(ny,kind=rp)

!!!  I need to know my global index range
     do i = 0,nx+1
        do j = 0,ny+1
           x = ( real(i+(pi*nx),kind=rp)- 0.5_rp) * dx(i,j)
           y = ( real(j+(pj*ny),kind=rp)- 0.5_rp) * dy(i,j)

           h(j,i) = 4000._rp - 2000._rp * &
                exp(-0.001_rp*((x-x0)**2._rp+(y-y0)**2._rp))
        enddo
     enddo

     if (netcdf_output) then
        call write_netcdf(h,vname='h',netcdf_file_name='h.nc',rank=rank)
     endif

     do i = 0,nx+1
        do j = 0,ny+1
           do k = 1,nz
              zr(k,j,i) = (k-0.5_rp)*h(j,i)/nz - h(j,i)
              zw(k,j,i) = (k-1.0_rp)*h(j,i)/nz - h(j,i)
           enddo
           zw(nz+1,j,i) = 0.0_rp
        enddo
     enddo

  else
     stop

  endif

  allocate(umask(0:ny+1,0:nx+1))
  allocate(vmask(0:ny+1,0:nx+1))

  umask(:,:) = 1._rp
  vmask(:,:) = 1._rp

  if (rank.eq.0)  write(*,*)'Start main model!'
  ! Everything above this point mimics the calling ocean model
  !-----------------------------------------------------------

  call nhydro_init(nx, ny, nz, npxg, npyg, neighb, dx, dy, zr, zw, umask, vmask)

  ! define rhs
  grid(1)%b(1:nz,1:ny,1:nx) = 0._8
  grid(1)%b=0.
  call random_number(grid(1)%p(1:nz,1:ny,1:nx))
  call fill_halo(1,grid(1)%p)
  call relax(1,4)
  grid(1)%b=grid(1)%p

  call nhydro_solve(u,v,w)

  if(myrank == 0) call print_tictoc(myrank)

  !  call nhydro_clean()

  call mpi_finalize(ierr)

contains

  !--------------------------------------------------------------
  subroutine mm_define_heighbours(npxg, npyg, neighb)

    use mpi
    implicit none

    integer(kind=4), intent(in) :: npxg, npyg
    integer(kind=4),dimension(:), intent(out)::neighb

    integer(kind=4):: myrank
    integer(kind=4) :: ierr
    integer(kind=4) :: pi, pj

    call mpi_comm_rank(mpi_comm_world, myrank, ierr)

    ! Neighbour

    pj = myrank/npxg
    pi = mod(myrank,npxg)

    if (pj > 0) then ! south
       neighb(1) = (pj-1)*npxg+pi
    else
       neighb(1) = MPI_PROC_NULL
    endif

    if (pi < npxg-1) then ! east
       neighb(2) = pj*npxg+pi+1
    else
       neighb(2) = MPI_PROC_NULL
    endif

    if (pj < npyg-1) then ! north
       neighb(3) = (pj+1)*npxg+pi
    else
       neighb(3) = MPI_PROC_NULL
    endif

    if (pi > 0) then ! west
       neighb(4) = pj*npxg+pi-1
    else
       neighb(4) = MPI_PROC_NULL
    endif

  end subroutine mm_define_heighbours

end program main_model

max_stars_repo_name: nmolem/mgroms

max_issues_repo_name: nmolem/mgroms

max_forks_repo_name: nmolem/mgroms


text:
! RUN: %python %S/test_errors.py %s %flang_fc1
! Check for semantic errors in this_image() function calls

subroutine test
  use, intrinsic :: iso_fortran_env, only: team_type
  type(team_type) :: team
  !ERROR: Coarray 'coteam' may not have type TEAM_TYPE, C_PTR, or C_FUNPTR
  type(team_type) :: coteam[*]
  integer :: coscalar[*], coarray(3)[*]
  save :: coteam, coscalar, coarray

  ! correct calls, should produce no errors
  team = get_team()
  print *, this_image()
  print *, this_image(team)
  print *, this_image(coarray)
  print *, this_image(coarray, team)
  print *, this_image(coarray, 1)
  print *, this_image(coarray, 1, team)
  print *, this_image(coscalar)
  print *, this_image(coscalar, team)
  print *, this_image(coscalar, 1)
  print *, this_image(coscalar, 1, team)

  !ERROR: 'coarray=' argument must have corank > 0 for intrinsic 'this_image'
  print *, this_image(array,1)

  print *, team_number()
  print *, team_number(team)

end subroutine

max_stars_repo_name: mkinsner/llvm

max_issues_repo_name: mkinsner/llvm

max_forks_repo_name: mkinsner/llvm


text:
!!  Copyright (C)  Stichting Deltares, 2012-2016.
!!
!!  This program is free software: you can redistribute it and/or modify
!!  it under the terms of the GNU General Public License version 3,
!!  as published by the Free Software Foundation.
!!
!!  This program is distributed in the hope that it will be useful,
!!  but WITHOUT ANY WARRANTY; without even the implied warranty of
!!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
!!  GNU General Public License for more details.
!!
!!  You should have received a copy of the GNU General Public License
!!  along with this program. If not, see <http://www.gnu.org/licenses/>.
!!
!!  contact: delft3d.support@deltares.nl
!!  Stichting Deltares
!!  P.O. Box 177
!!  2600 MH Delft, The Netherlands
!!
!!  All indications and logos of, and references to registered trademarks
!!  of Stichting Deltares remain the property of Stichting Deltares. All
!!  rights reserved.

      subroutine setopo ( procesdef, outputs, iloc  , idef  , iflx  ,
     +                    nowarn   )

      ! set output pointers

      use timers         !< performance timers
      use processet
      use output
      implicit none

      ! declaration of arguments

      type(procespropcoll)      :: procesdef       ! all processes
      type(outputcoll)          :: outputs         ! output structure
      integer                   :: iloc            ! offset to local array
      integer                   :: idef            ! offset to default array
      integer                   :: iflx            ! offset to flux array
      integer                   :: nowarn          ! number of warnings

      ! local decalarations

      integer                   :: nproc           ! number of processes
      integer                   :: iproc           ! loop counter processes
      type(procesprop), pointer :: proc            ! process description
      character(len=100)        :: line            ! line buffer for output
      integer                   :: ioutput         ! index output item
      integer                   :: i_input         ! index input item
      integer                   :: indx            ! index
      integer                   :: iou             ! loop counter output variable
      integer                   :: iou2            ! loop counter output variable
      character(len=20)         :: predef(3)       ! predefined names
      integer(4)                :: ithndl = 0      ! handle for performance timer
      if (timon) call timstrt( "setopo", ithndl )

      predef(1) = 'volume'
      predef(2) = 'itime'
      predef(3) = 'idt'

      ! set "output from active processes to output param" pointers

      write( line, '(a)' ) '# locating requested output from active processes'
      call monsys( line , 2 )
      line = ' '
      call monsys( line , 2 )

      nproc = procesdef%cursize

      do 300 iou = 1 , outputs%cursize

         ! check of deze al eerder aan de beurt is geweest

         call zoek( outputs%names(iou), iou-1 , outputs%names , 10 , iou2 )
         if ( iou2 .gt. 0 ) then

            ! if pointer the same get out ( can they be different except for -1 ?? )

            if ( outputs%pointers(iou) .eq. outputs%pointers(iou2) ) then
               goto 300
            endif

            ! if pointer -1  set pointer equal to iou2 and get out

            if ( outputs%pointers(iou) .eq. -1 ) then
               outputs%pointers(iou) = outputs%pointers(iou2)
               goto 300
            endif
         endif

         ! if this comes from proloc

         if ( outputs%pointers(iou) .gt. iloc ) then
            do iproc = 1, nproc
               proc => procesdef%procesprops(iproc)
               if ( proc%active ) then
                  call zoekio ( outputs%names(iou), proc%no_output, proc%output_item, 20, ioutput, IOTYPE_SEGMENT_OUTPUT)
                  if ( ioutput .gt. 0 ) then

                     ! is this the one which is being used ?

                     if ( proc%output_item(ioutput)%ip_val .eq. outputs%pointers(iou) ) then
                        write ( line , '(5a)' ) ' output [',outputs%names (iou)(1:20),'] from proces [',proc%name(1:10),']'
                        call monsys( line , 4 )
                        goto 300
                     endif
                  endif

               endif

            enddo
         elseif ( outputs%pointers(iou) .eq. -1 ) then

            ! predefined ?

            call zoek ( outputs%names(iou), 3    , predef , 20   , indx  )
            if ( indx .eq. 1 ) then
               write(line,'(3a)') ' output [',outputs%names (iou)(1:20),'] using delwaq volume'
               call monsys( line , 4 )
               outputs%pointers(iou) = 1
               goto 300
            endif
            if ( indx .eq. 2 ) then
               write(line,'(3a)') ' output [',outputs%names (iou)(1:20),'] using delwaq itime'
               call monsys( line , 4 )
               outputs%pointers(iou) = 2
               goto 300
            endif
            if ( indx .eq. 3 ) then
               write(line,'(3a)') ' output [',outputs%names (iou)(1:20),'] using delwaq idt'
               call monsys( line , 4 )
               outputs%pointers(iou) = 3
               goto 300
            endif

            ! investigate wheter a default with this name is being used

            do iproc = 1, nproc
               proc => procesdef%procesprops(iproc)
               if ( proc%active ) then
                  call zoekio ( outputs%names(iou), proc%no_input, proc%input_item, 20, i_input, IOTYPE_SEGMENT_INPUT)
                  if ( i_input .gt. 0 ) then

                     ! is it a default ?

                     if ( proc%input_item(i_input)%ip_val .gt. idef .and.
     +                    proc%input_item(i_input)%ip_val .le. iflx      ) then
                        outputs%pointers(iou) = proc%input_item(i_input)%ip_val
                        write ( line , '(5a)' ) ' output [',outputs%names (iou)(1:20),'] default from [',proc%name,']'
                        call monsys( line , 4 )
                        goto 300
                     endif
                  endif

               endif
            enddo

            nowarn = nowarn + 1
            write (line,'(5a)') ' warning: output [',outputs%names (iou)(1:20),'] not located'
            call monsys( line , 4 )
         endif
  300 continue

      line = ' '
      call monsys( line , 4 )

      if (timon) call timstop( ithndl )
      return
      end

max_stars_repo_name: liujiamingustc/phd

max_issues_repo_name: liujiamingustc/phd

max_forks_repo_name: liujiamingustc/phd


text:
Dartmouth Apartments (a.k.a. A Street Apartments) is a small complex across A Street from campus. Rent runs for $1575/month for a 2bd/2ba unit and $975/month for the singles.

To learn more about rental housing in Davis, check out our Housing Guide as well as our Apartments pages.

20120906 16:40:07 nbsp THIS PLACE IS A TOTAL SHIT HOLE! THE PROPERTY OWNER KNOWS IT AND I HAVE BEEN TOLD DIRECTLY BY PPL WHO WORK FOR THE MANAGEMENT COMPANY THAT THE OWNER SPENDS AS LITTLE POSSIBLE MAINTAINING THE STRUCTURE AND CLEANLINESS OF THE PLACE!! IT IS OVER PRICED, FALLING APART AND A TOTAL DUMP! IF YOU WANT TO LIVE ON A STREET, FIND A BETTER PLACE TO LIVE. WANTING TO PARTY IS GREAT! BUT LIVING AT A SHIT HOLE IS NOT!!

I HIGHLY RECOMMEND NOT LIVING HERE!!!!!!!!!!!!!!!!

PEOPLE GET ON THE ROOF, BANG ON DOORS AND SMASH BOTTLES HERE (IT IS A HAVEN FOR DRUNKEN DELINQUENCY!! AVOID THIS PLACE!! Users/AlexSobieski

20130820 08:32:55 nbsp Jesus Christ, of all the problems with this complex, the worst is undoubtably the 8:30 am leaf blower walking through the complex. Its been going on for the last 10 minutes. This happens at least once a week, though I dont think the local leaf blowers have coordinated, so youll be deeply frustrated when you wake up 2 or 3 times a week to the same awful noise. Who the fuck pays this guy? Users/BeckPete