text:
C    @(#)postara.f	20.3 2/13/96
      subroutine postara(record)

      include 'ipfinc/postdta.inc'

      character record*(*)
      character busnm*10, name*10, arashap*2

*************** debug stuff *******************
*     print 9951
*9951 format(' entering postara')
*     print 9901, record(1:100)
*9901 format(' in postara:'a)
*     print 9901, text
*     print 9901, fmtnam
*************** debug stuff *******************

      namary = ' '
      araary = ' '
      corary = ' '

***** read area record from coordinate file *************
      read (text,111) kdspflg, name, xb, yb, arashap, arasz1, arasz2
  111 format(bz, 1x, i1, t14, a10, t24, 2f6.2, a2, 2f4.2)
******** read bus record from powerflow file *************
      read (record, 121) pgen, pload, ploss, sint
  121 format(t14, 4e15.7)

      write (corary, 201) xb, yb, arashap, arasz1, arasz2, kdspflg
  201 format('[ ', 2(f6.2, ' cmtr '), ' (',a2, ') ', 2(f7.2, ' cmtr ')
     1, i3, ' ]')

      write (namary, 211) name
  211 format('(', a10, ')')
      write (araary, 221) pload, ploss, pgen, sint
  221 format('[ (LOAD', f8.1, ')', ' (LOSS', f8.1, ')',
     1' (GEN', f9.1, ')',' (SI', f10.1, ') ] areaBub')
      return
      end

ext: f

max_stars_repo_name: mbheinen/bpa-ipf-tsp

max_issues_repo_name: cuihantao/bpa-ipf-tsp

max_forks_repo_name: mbheinen/bpa-ipf-tsp


text:
 SUBROUTINE rdcoor(actio)
 !-----------------------------------------------------------------------
 !     READ nodal coordinates & nodal systems
 !-----------------------------------------------------------------------
 USE param_db,ONLY: mnam,max_npoin_2d,max_npoin_3d
 USE ctrl_db,ONLY:  ndime, ndofn, nrotd, neulr, npoin, npoio, echo_chnode, nload, therm, ndoft
 USE outp_db, ONLY : updlon_outp, iwrit
 USE c_input
 USE ndinf_db
 USE nsets_db
 USE esets_db, ONLY : add_name
 USE npo_db !, ONLY: label,oldlb,euler,coord,coorc,coora,velnp,tempe,dtemp,resid
 USE cms_db, ONLY : nconm,updlon_cm
 USE damp_db, ONLY : updlon_damp
 USE loa_db, ONLY : updlon_lo
 USE kinc_db, ONLY : naris,nvelr
 USE sms_db, ONLY : selective_mass_scaling, updlon_sms
 IMPLICIT NONE

   !--- Dummy variables
   CHARACTER(len=*),INTENT(IN OUT):: actio !NEW, NSTRA0

   !--- Local variables
   CHARACTER(len=mnam) :: nsname
   INTEGER (kind=4):: k, n, nn, nrads, neu
   REAL (kind=8) :: fi, raddi, rm(9), theta, x(6), scale
   REAL (kind=8), PARAMETER :: facto = 1.7453292519943295769236907684886d-02   !pi/180

   TYPE (ndata) :: nd          ! nodal data
   TYPE (list_ndata) :: ndi    ! nodal information, temporary database
   TYPE (nset), POINTER :: ns  ! set of nodes

   INTERFACE
     INCLUDE 'angeul.h'
     INCLUDE 'delnod.h'
     INCLUDE 'contac.h'
     INCLUDE 'elemnt.h'
   END INTERFACE

   neu = 2*ndime - 3
   ! read initial control card  and print header
   CALL listen('RDCOOR')
   IF (.NOT.exists('GEOMET')) THEN
     IF (npoin == 0) THEN
       CALL runend('RDCOOR: GEOMETRY_DEFINITION EXPECTED')
     ELSE                          ! old problem and nothing to read
       backs = .TRUE.              !one line back
       npoio = npoin               ! keep number of points in previous mesh
       DEALLOCATE (oldlb)          ! release memory
       ALLOCATE (oldlb(npoio))     ! get memory
       DO n=1,npoin
         oldlb(n) = label(n)       ! store old labels for future reference
       END DO
       RETURN                      ! exit routine
     END IF
   END IF

   ! If this data set exists for actio == 'NSTRA0' => actio = 'NSTRA2'

   CALL ln_ini (ndi)  ! initialize ndi dbase

   IF (TRIM(actio) /= 'NEW') THEN

     ! Regenerates Euler angles if Nodal systems exists
     IF( neulr > 0 )THEN
       IF(ndime == 2)THEN
         euler = euler/facto        !transform angles to degrees
       ELSE IF( ndime == 3 ) THEN
         DO n=1,npoin                 !for each existing point
           rm = euler(1:9,n)          !Local nodal system
           CALL angeul(rm,euler(1:3,n),.TRUE.) !regenerates Euler angles (in degrees)
         END DO
       END IF
     END IF

     DO n = 1, npoin                !for each existing point
       nd%label = label(n)                  !store nodal label
       nd%coord(1:ndime) = coord(1:ndime,n) !store original coordinates
       nd%coorc(1:ndime) = coorc(1:ndime,n) !store present coordinates
       nd%coora(1:ndime) = coora(1:ndime,n) !store previous coordinates
       IF (neulr > 0) THEN
         nd%euler(1:neu,1) = eule0(1:neu,n)  !initial Euler ang.
         nd%euler(1:neu,2) = euler(1:neu,n)  !previous Euler ang.
       END IF
       nd%veloc(1:ndofn) = velnp(1:ndofn,n) !store nodal velocities
       IF (therm) nd%temp(1,1:ndoft) = tempe(:,n)  !store nodal temperature
       IF (therm) nd%temp(2,1:ndoft) = dtemp(:,n)  !store nodal old temperature
       CALL add_nd_at_end (ndi, nd)         !add to list (labels are SORTED)
     END DO

     npoio = npoin                          !keep previous number of nodes
     DEALLOCATE (oldlb)                     !forget
     ALLOCATE (oldlb(npoio))                !get memory
     DO k=1,npoio
       oldlb(k) = label(k)                  !keep previous label
     END DO
     DEALLOCATE ( coora, coorc, coord, euler, velnp, label) !release mem
     IF( ASSOCIATED (eule0 ))DEALLOCATE ( eule0) !release mem

     CALL delnod(iwrit, ndi)                !delete nodes if required

     npoin = get_npoin (ndi)                !present number of nodes
     WRITE (lures,"(/,'Number of nodes kept from the previous strategy: ',i6/ &
                  &  70('-'),/)",ERR=9999) npoin

   END IF

   CALL listen('RDCOOR')           !read a card
   IF (exists('GENERA')) THEN      !control card expected before node information
     WRITE (lures,"(/,80('-'),//,'  G E O M E T R Y   DEFINITION'/)",ERR=9999)
     scale=getrea('GSCALE',1d0,' SCALE Factor for Coordinates .....')
     nrads=getint('NRADS ',  0,' Coordinates Sys 0:CART 1:CYL 2:SPH')
   ELSE                            !previous card is compulsory, else STOP
     CALL runend('RDCOOR: GENERAL CARD EXPECTED      ')
   END IF

   IF(iwrit == 1) WRITE(lures,"(//'   ECHO of the Coordinate Data ',/ &
    & 5x,' Node      X',9X,'Y',9X,'Z',7X,'Alfa      Beta      Gamma')",ERR=9999)

   !                        initialize values for a new problem
   IF (TRIM(actio) == 'NEW')  CALL nsdb_ini      !initializes temporary D_B

   n = get_npoin (ndi)             !actual number of points in D_B

   DO                        !  GLOBAL LOOP
     CALL listen('RDCOOR')             !read a card
     IF(exists('ENDGEO')) EXIT         !check if end control card read
     IF(exists('SET   ',k))THEN          !check if set control card read
       nsname = get_name(posin=k,stype='NSET')        !set name
       CALL ns_ini (ns)                  !initializes list of nodes (set)
       CALL put_nsname (ns, nsname)      !assign name set
       CALL add_name (nsname,1)          !add to names list
       WRITE(lures,"('=============  nodes in set ',A,' ============' )",ERR=9999) &
             TRIM(nsname)
       DO
         CALL listen('RDCOOR')             !read a card
         IF( exists('ENDSET') )THEN        !end of set read
           CALL add_ns_at_end (ns)           !add set of nodes to the list of sets
           EXIT                              !cycle GLOBAL LOOP
         END IF
         n = n + 1                           !increase number of nodes and test MAX
         IF( (n > max_npoin_3d .AND. ndime == 3 ) .OR. (npoin > max_npoin_2d .AND. ndime == 2 )) &
         CALL runend('RDCOOR: Max. number of nodes EXCEDED !!!!!!')
         nn = INT(param(1))                  !node label
         IF( nn <= 0 )CALL runend('NODE label must be positive integers')
         IF( iwrit == 1) THEN                !If echo
           SELECT CASE (neulr)               !select how and what to echo
           CASE (0)
             WRITE(lures,"(i10,3f10.5)",ERR=9999) nn,param(2:ndime+1)
           CASE (1)
             WRITE(lures,"(i10,2f10.5,10x,f10.5)",ERR=9999) nn,param(2:4)
           CASE (9)
             WRITE(lures,"(i10,6f10.5)",ERR=9999) nn,param(2:7)
           END SELECT
         END IF

         CALL vecasi(6,param(2),x)           !for convenience only
         IF(neulr == 1) THEN                 !EULER angles in a 2-D problem
           rm(1) = x(3)*facto                !angle is the third parameter
         ELSE IF(neulr == 9) THEN            !EULER angles in a 3-D problem
           rm = 0d0                          !initializes Rotation matrix
           rm(1:3) = x(4:6)*facto            !first-second-third Euler angles
         END IF
         IF(nrads == 1) THEN                 !cylindrical coordinates (2-D or 3-D)
         ! ***    change cylindrical coordinates to cartesian
           raddi = x(1)                      !radius
           theta = x(2)*facto                !angle in radians
           x(1) = raddi*SIN(theta)
           x(2) = raddi*COS(theta)
         ELSE IF (nrads == 2) THEN           !Spherical coordinates (3-D problems)
         ! ***    change spherical coordinates to cartesian
           raddi = x(1)                      !radius
           theta = facto*x(2)                !first angle in radians
           fi    = facto*x(3)                !second angle in radians
           x(1) = raddi*SIN(fi)*SIN(theta)
           x(2) = raddi*SIN(fi)*COS(theta)
           x(3) = raddi*COS(fi)
         END IF

         x(1:ndime) = x(1:ndime)*scale       !scale coordinates

         nd%label = nn                       !assign read data to the list
         nd%coord(1:ndime) = x(1:ndime)      !orig. coord
         nd%coorc(1:ndime) = x(1:ndime)      !actual coord
         nd%coora(1:ndime) = x(1:ndime)      !previous coord
         IF (neulr > 0) nd%euler(1:neu,1) = rm(1:neu)  !euler angles
         IF (neulr > 0) nd%euler(1:neu,2) = rm(1:neu)  !euler angles
         nd%veloc(1:ndofn) = 0d0             !initializes velocity
         IF (therm) nd%temp = 0d0            !initializes temperature

         CALL l_insert (ndi, nd)             !add node to list of nodes
         CALL add_at_end (ns, nn)            !add node to SET
       END DO  !loop to read nodes in a set
     ELSE                            !error in data input
       CALL runend('RDCOOR: SET card for nodes expected')
     END IF

   END DO  !loop to read sets of nodes

   npoin = n                           !new number of nodes
              ! get memory for NPO_DB
   IF( (npoin <= max_npoin_3d .AND. ndime == 3 ) .OR. (npoin <= max_npoin_2d .AND. ndime == 2 )) THEN
     ALLOCATE (coord(ndime,npoin), coora(ndime,npoin), coorc(ndime,npoin),  &
               label(npoin), velnp(ndofn,npoin))
     IF( ndofn == 8 )THEN
       ALLOCATE( psia(2,npoin),psic(2,npoin))
       psia = 0d0
       psic = 0d0
     ELSE
       NULLIFY( psia ,psic )
     END IF
   ELSE
     STOP ' number of nodes exceeded for Academic version'
   END IF

   IF (therm) THEN ! allocation of nodal vectors for thermal analysis
     ALLOCATE ( tempe(ndoft,npoin), dtemp(ndoft,npoin) )
     tempe = 0d0
     dtemp = 0d0
   END IF

   IF(neulr > 0)THEN                   !IF nodal systems
     ALLOCATE(eule0(neu,npoin), euler(neulr,npoin))      !get memory
     euler = 0d0                       !initializes
   ELSE
     ALLOCATE( euler (1,1) )           !to avoid a null pointer
   END IF

   CALL l_head (ndi)                   !go to top of the list of nodes
   DO n=1,npoin                        !for each node in the list
     nd = get_ndata (ndi)              !get nodal data and assign
     label(n) = nd%label
     coord(1:ndime,n) = nd%coord(1:ndime)
     coorc(1:ndime,n) = nd%coorc(1:ndime)
     coora(1:ndime,n) = nd%coora(1:ndime)
     velnp(1:ndofn,n) = nd%veloc(1:ndofn)
     IF (neulr > 0) THEN
       eule0(1:neu,n) = nd%euler(1:neu,1)
       euler(1:neu,n) = nd%euler(1:neu,2)
     END IF
     IF (therm) tempe(:,n) = nd%temp(1,1:ndoft)
     IF (therm) dtemp(:,n) = nd%temp(2,1:ndoft)
     CALL l_next (ndi,k)                 !next node in the list
   END DO

   CALL dalloc_list_ndata (ndi)  ! deallocate all the temporary database

   IF (TRIM(actio) == 'NEW') THEN   !for a NEW problem
     npoio = npoin               !old values are present values
     ALLOCATE (oldlb(npoio))
     DO n=1,npoin
       oldlb(n) = label(n)
     END DO
   ELSE                          !for subsequent strategies
     actio = 'NSTRA2'            !modify action for rest of the TASKS
     ! updating local node numbers in existing problem
     echo_chnode = .FALSE.
     CALL elemnt ('UPDLON')               ! elements/segments/nodes
     CALL updlon_kc (naris,nvelr,ndime)   ! KINEMATIC conditions
     IF(nconm)CALL updlon_cm (nrotd)      ! CONCENTRATED MASSES
     IF(selective_mass_scaling)CALL updlon_sms ( ) ! Selective Mass Scaling
     CALL updlon_outp (oldlb)             ! output nodes
     CALL updlon_damp ()                  ! DAMPING nodes
     CALL updlon_lo (nload,oldlb)         ! LOADS
     CALL contac ('UPDLON',0)             ! CONTACT nodes
     echo_chnode = .TRUE.
     DEALLOCATE (oldlb)
     ALLOCATE (oldlb(npoin))
     DO n=1,npoin
       oldlb(n) = label(n)
     END DO
   END IF

 RETURN
  9999 CALL runen2('')
 END SUBROUTINE rdcoor

max_stars_repo_name: jerebenitez/IFE-simpact-openfoam

max_issues_repo_name: jerebenitez/IFE-simpact-openfoam

max_forks_repo_name: jerebenitez/IFE-simpact-openfoam


text:
i have way too much fun messing with computers. Macs in particulars. http://www.apple.com Apple makes the best computers and OS in the whole damn world.

Im currently the webmaster for the http://wwwenglish.ucdavis.edu UC Davis English Department and a ton of other English Major english department sites.

I like Gardening gardening, meditation, atheism, rock music, and oh yeah, macs.

And theres something about http://www.livejournal.com/users/ghosttoaster appliances and poltergeists...

max_stars_repo_name: voflo/Search

max_issues_repo_name: voflo/Search

max_forks_repo_name: voflo/Search


text:
Address(Corona Drive) is a residential street in North Davis. It connects Anderson Road and Catalina Drive and has several culdesacs branching off from it.

 Intersecting Streets

  Barcelona Avenue
  Anderson Road
  Diego Place
  Equador Place
  Flamenco Place
  Catalina Drive
  Hermosa Place
  Isla Place


text: #redirect Yolo County Animal Shelter


text:
The Teen Center is now the US Bicycling Hall of Fame.

The Teen Center ended teen services on August 31, 2009. For City information on Teen Programming, follow this link : http://cityofdavis.org/cs/teens/index.cfm  and http://davisvanguard.org/index.php?optioncom_content&viewarticle&id2934:whatbecameofthedavisteencenter&catid58:budgetfiscal&Itemid79 What Became of the Davis Teen Center

A dropin center, that has a pool table, a TV with an Xbox, Arcades, etc. for Davis noncollegestudent teenagers. Sometimes they throw Learn to Dance dances for the kids, and theres a Basketball basketball hoop out back.  College students are ushered out summarily.

Id assume that there are some volunteer opportunities but i havent looked into it.

There is also a public internet terminals public internet terminal for the teens to use.

In 2005 Watermelon Music, with help from many of manufacturers, donated over $5,000 worth of musical instruments and gear to 3rd & B to be used by young area musicians. The gear includes Fender and Ibanez electric guitars, Kustom, Fender and SWR amplifiers, and a complete Pearl drumset with Sabian cymbals.  Parents should be aware that 3rd & B offers supervised (but unintrusive) time for everyone on these instruments during most of their open hours.  If you are a teenage musician looking for a place to play, and new people to play music with this summer, check it out

During the 1990s the Teen Center allowed the basement to be used as a venue, which became popular with many northern California bands. For example, Green Day played several shows at the Teen Center before becoming big. Security concerns caused the venue to be shut down indefinitely.

As of July, 2009, there are plans to convert the center into the semipermanent home of the US Bicycling Hall of Fame and the California Bicycle Museum. There is no word as to what will happen to the teen center.
Staff and teens are being kicked out by the end of August and in around November, they plan on having the Bicycling Hall of Fame open. There is talk that they are using the teen center for only two years while they build a different location for the U.S. Bicycling Hall of Fame. Also, they might pick out a school to throw the teen center in, but that still has not been given much thought.

Ive been told that Thrid and B used to be the place for shows in the area until they cracked down on all the drunk people showing up to the shows. I guess having a bunch of alcohol sort of defeats the purpose of a teen center.  Users/ArlenAbraham

Yep, the basement use to be the place to see the coolest, local death metal, punk and occasional hiphop show. The accoustics were great, but yeah people showed up drunk. Which again proves, sober venues are not possible.  Users/JimSchwab

Isnt this where Davis is Burning, the annual drag show takes place? That doesnt seem to teen friendly, so maybe I am wrong. Users/AbbyLawson

  Davis is Burning takes place at the Veterans Memorial Theater.  A drag show is a lot less sexualized then say, homecoming or prom  which are very well accepted.  Im not saying its your view  but I dont see how exposing teenagers to people of alternate sexualities having fun is bad. Users/ChristopherMckenzie

  They had Davis is Burning here my freshmen year, if I recall correctly. Users/PhilipNeustrom

I attended a KDVS record swap at Third and B before and it was great.  You cant tell from the photo but the space for events is in the basement.  Steps lead down to it from the outside.  It would be great if they allowed shows there again since the basement is obviously designed for them. Users/RiotInDavis

I have received news that the center has gotten permission to resume shows! Users/TobinJones

Users/StevenDaubert was part of a signature drive a couple years ago to stop the city from slashing the teen center hours, or even closing it. They had a PS2, and some hard DDR pads and used to have DDR nights at least last year. Daub remembers when the teen center was brand new, but he wasnt of teen age so he couldnt go for a couple years.

This is apparently where Green Day did their first outoftown show!  No joke! Users/TSaito

Is anyone old enough to pull together a listing of shows that happened here? I just came across a rather pro looking flyer for SleaterKinney playing here and was intrigued Users/CraigFergus
  Whoa, really? When did they perform here (according to the flyer, anyway...)?  Users/JenniferGiang

20091121 20:02:27 nbsp its so sad that this place is closing. i cant believe lamar heystek is the only one that thought the bike museum could be moved to another location. had more people known about what was happening, i believe the situation would not have ended like this. the davis vanguard has a good article on the situation: http://davisvanguard.org/index.php?optioncom_content&viewarticle&id2934:whatbecameofthedavisteencenter&catid58:budgetfiscal&Itemid79 Users/JessicaRockwell
   Ridiculous that they closed this place (although I did not grow up in Davis so I never actually went in). I went by the bike museum and it did not seem like anything worth going out of anyones way to see. I heard from a local business owner that drug arrests and vandalism went up after the closing, I totally didnt see that coming. Users/hankim

20110804 17:00:59 nbsp Back when I was in Jr. High in Davis, they actually came around and asked us kids if we wanted a place like this... sounded great.  Free pool, ping pong, video games, etc.  Whats not to like? Then it opened, and it quickly became known as THE dork hang out.  You were loathed for showing up here, it was the definitive place for the uncool crowd.  They tried changing the name to 3rd and B to get away from the campy sounding Teen Center, but by the time they started having shows and events that kids wanted to go to, it was too late.  Its really too bad... the place was really nice inside, and had a lot to offer (I led Rainbow Summer kids on field trips here).  I think if it had been marketed and organized correctly from the start, it could have been a great place for the tween (probably more than teen) crowd.  Guess it just wasnt meant to be. Users/OldDavis73


text:
!======================================================================!
  subroutine UserCylGen_Tecplot(grid, n)
!----------------------------------------------------------------------!
!----------------------------------------------------------------------!
!----------------------------------------------------------------------!
  use all_mod
  use pro_mod
  use les_mod
  use par_mod
  use rans_mod
!-----------------------------[Arguments]------------------------------!
    integer :: n
    real    :: x1_dis, x0_dis, y1_dis, y0_dis, z1_dis, z0_dis
    real    :: TauWup, TauWdown, r23, TKE, Cmu_mod, Pk_tmp, Cs_mod, Cs_prime
    real    :: Utan, UnorSq, Unor, UtotSq, dely, Stot, R, UtanX, TKE_mean
    real    :: a11, a22, a33, a12, a13, a21, a31, a23, a32, a_mn_a_mn
    real    :: u11, u22, u33, u12, u13, u21, u31, u23, u32
    real    :: S11, S22, S33, S12, S13, S21, S31, S23, S32, a_lk_s_lk
!-------------------------------[Locals]-------------------------------!
    integer             :: c, s, c1, c2
    character*24        :: inflowfile
    character*80        :: namout
    character*39        :: path
!======================================================================!
!  open(9, file='Slice2.dat')
!  if(this < 2) write(*,*) '# Now reading the file: Slice.dat '
!  read(9,*) x1_dis, x0_dis
!  read(9,*) y1_dis, y0_dis
!  read(9,*) z1_dis, z0_dis
!  if(this < 2) write(*,*) '# X:[ ', x0_dis, " ;", x1_dis, "]", &
!  ' Y:[ ', y0_dis, " ;", y1_dis, "]", ' Z:[ ', z0_dis, " ;", z1_dis, "]"

    inflowfile = 'Cylind-xxxxxx-xxx.dat'

    write(inflowfile(8:13),'(I6.6)') n
    write(inflowfile(15:17),'(I3.3)') this
    open(500+this, file=inflowfile)

    if( this < 2 ) then
      write(*,*) 'Capturing field..'
    end if

    do s=1,NS
      c1=SideC(1,s)
      c2=SideC(2,s)

      if(c2 < 0 .and. TypeBC(c2) /= BUFFER) then
        if(TypeBC(c2)==WALL .or. TypeBC(c2)==WALLFL) then
          write (500+this,'(8E17.7E3)') xc(c1), yc(c1), zc(c1), U % n(c1), V % n(c1), &
          W%n(c1), P % n(c1), sqrt(U % n(c1)**2+V % n(c1)**2+W%n(c1)**2)
        end if
      end if
    end do

    close(9)
    close(500+this)

  end subroutine UserCylGen_Tecplot

max_stars_repo_name: mhadziabdic/T-FlowS

max_issues_repo_name: mhadziabdic/T-FlowS

max_forks_repo_name: mhadziabdic/T-FlowS