Home
last modified time | relevance | path

Searched refs:c (Results 1 – 25 of 35) sorted by relevance

12

/phasta/M2NFixBnd/include/
H A DcommonM2NFixBnd.h1 c----------------------------------------------------------------------
2 c
3 c This file contains the common blocks and the data declaration needed
4 c for the routines.
5 c
6 c Input variables that have been previously declared in common_c.h have to be
7 c re-declared here, in a consistant block.
8 c
9 c Zdenek Johan, Winter 1991. (Fortran 90)
10 c----------------------------------------------------------------------
[all …]
/phasta/M2N/include/
H A DcommonM2N.h1 c----------------------------------------------------------------------
2 c
3 c This file contains the common blocks and the data declaration needed
4 c for the routines.
5 c
6 c Input variables that have been previously declared in common_c.h have to be
7 c re-declared here, in a consistant block.
8 c
9 c Zdenek Johan, Winter 1991. (Fortran 90)
10 c----------------------------------------------------------------------
[all …]
/phasta/AcuStat/include/
H A DcommonAcuStat.h1 c----------------------------------------------------------------------
2 c
3 c This file contains the common blocks and the data declaration needed
4 c for the routines.
5 c
6 c Input variables that have been previously declared in common_c.h have to be
7 c re-declared here, in a consistant block.
8 c
9 c Zdenek Johan, Winter 1991. (Fortran 90)
10 c----------------------------------------------------------------------
[all …]
/phasta/phSolver/common/
H A Dcommon.h1 c----------------------------------------------------------------------
2 c
3 c This file contains the common blocks and the data declaration needed
4 c for the routines.
5 c
6 c Input variables that have been previously declared in common_c.h have to be
7 c re-declared here, in a consistant block.
8 c
9 c Zdenek Johan, Winter 1991. (Fortran 90)
10 c----------------------------------------------------------------------
[all …]
H A Dfillsparse.f12 integer aa, b, c, e, i, k, n local
30 c = col(i) ! starting point to look for the matching column
31 n = col(i+1) - c !length of the list of entries in rowp
37 k = sparseloc( row(c), n, ien(e,b) ) + c-1
86 integer aa, b, c, e, i, k, n, n1 local
106 c = col(i) !Get the mapping from the ith row of lhsk to
108 n = col(i+1) - c !number of nonzero blocks in the row
113 k = sparseloc( row(c), n, ien(e,b) ) + c-1
148 integer aa, b, c, e, i, k, n, n1 local
166 c = col(i) !Get the mapping from the ith row of lhsk to
[all …]
H A Dfillsparse.c17 #define COLMAJ3D(a,b,c,amax,bmax,cmax) (a-1)+amax*((b-1)+bmax*(c-1)) argument
H A DCMakeLists.txt2 FILE(GLOB SRC_FILES *.cc *.f *.f90 *.c *.F90)
/phasta/phSolver/incompressible/e3source/
H A De3source.fimplicit2 c-----------------------------------------------------------------------
3 c
4 c this routine computes the body force term.
5 c
6 c currently this computes a swirl body with the axis alligned with
7 c the z-coordinate
8 c
9 c-----------------------------------------------------------------------
19 c
20 c This is the body force which will drive a swirl in a pipe flow
[all …]
H A De3source.fRHSonly2 c-----------------------------------------------------------------------
3 c
4 c this routine computes the body force term.
5 c
6 c currently this computes a swirl body with the axis alligned with
7 c the z-coordinate
8 c
9 c-----------------------------------------------------------------------
19 c
20 c This is the body force which will drive a swirl in a pipe flow
[all …]
/phasta/phSolver/incompressible/
H A Dftools.f52 subroutine fMtxVdimVecMult( a, b, c, na, nb, nc, m, n ) argument
58 real*8 a(n,na), b(n,nb), c(n,nc) local
69 c(i,1) = a(i,1) * b(i,1)
75 c(i,1) = a(i,1) * b(i,1)
76 c(i,2) = a(i,2) * b(i,2)
82 c(i,1) = a(i,1) * b(i,1)
83 c(i,2) = a(i,2) * b(i,2)
84 c(i,3) = a(i,3) * b(i,3)
90 c(i,1) = a(i,1) * b(i,1)
91 c(i,2) = a(i,2) * b(i,2)
[all …]
H A DCMakeLists.txt1 file(GLOB SRC_FILES *.cc *.f *.f90 *.c)
13 list(REMOVE_ITEM SRC_FILES ${CMAKE_CURRENT_SOURCE_DIR}/usr.c )
14 list(REMOVE_ITEM SRC_FILES ${CMAKE_CURRENT_SOURCE_DIR}/getSol.c )
15 list(REMOVE_ITEM SRC_FILES ${CMAKE_CURRENT_SOURCE_DIR}/lestools.c )
/phasta/shapeFunction/
H A DMakefile.am6 src/blend.c \
7 src/blendDrv.c \
8 src/Bn.c \
9 src/BnDrv.c \
10 src/En.c \
11 src/EnDrv.c \
12 src/Fn.c \
13 src/FnDrv.c \
14 src/Lagrange.c \
15 src/modeShape.c \
[all …]
/phasta/phSolver/compressible/
H A De3eig1.f1 subroutine e3eig1 (rho, T, cp, gamb, c, argument
42 & c(npro), u1(npro),
173 fact = (one / sqrt( two * rho * T )) / c
175 Q(:,1,5) = fact * ((c + u) * c - eb1 * gamb)
176 Q(:,2,5) = -fact * (c + u * gamb) * Rcs(:,1,1)
177 Q(:,3,5) = -fact * (c + u * gamb) * Rcs(:,1,2)
178 Q(:,4,5) = -fact * (c + u * gamb) * Rcs(:,1,3)
181 Q(:,1,1) = fact * ((c - u) * c - eb1 * gamb)
182 Q(:,2,1) = fact * (c - u * gamb) * Rcs(:,1,1)
183 Q(:,3,1) = fact * (c - u * gamb) * Rcs(:,1,2)
[all …]
H A Dgetthm.f3 & alfap, betaT, gamb, c ) argument
55 & gamb(npro), c(npro),
172 c = sqrt( (gamma * Rgas) * T )
216 c = tmpl(:)*prop_blend(:)+tmpg*(1-prop_blend(:))
326 c = sqrt( cp * gamb * T )
H A De3tau.f339 & betaT(npro), gamb(npro), c(npro),
351 c = sqrt( (gamma * Rgas) * T )
371 & gamb, c, u1,
381 call e3eig2 (u, c, a1,
411 c(:) = pt33 * (
425 Pe(:) = one / (c(:)*rlam(:,i))
459 c = (alphap+betaT)/(alphap-betaT)
461 c = one
464 B= -Pe*c + Ak
466 E=-0.066666667 * (Pe**3) * c +D
[all …]
H A DCMakeLists.txt1 file(GLOB SRC_FILES *.cc *.f *.f90 *.c)
/phasta/phSolver/testIC-DSIM/
H A Dgeom.sms135 8 12 4 c
136 8 12 c 5
147 1 23 c h
151 2 23 8 c
169 4 24+8+c-i-v
171 5 24+k-c-b+w
178 0 6+i-c-3-k-7-f
H A Dgeom.sdm135 8 12 4 c
136 8 12 c 5
147 1 22 c h
151 2 22 8 c
168 4 24+8+c-i-v
170 5 24+k-c-b+w
/phasta/M2NFixBnd/src/
H A DCMakeLists.txt1 …ecutable(M2NFixBnd main.c phasta.cc input.f readnblk.f cname.f setsyncioparam.cc new_interface.c d…
/phasta/AcuStat/src/
H A DCMakeLists.txt1 …executable(AcuStat main.c phasta.cc input.f readnblk.f cname.f setsyncioparam.cc new_interface.c d…
/phasta/M2N/src/
H A DCMakeLists.txt1 add_executable(M2N main.c phasta.cc input.f readnblk.f cname.f setsyncioparam.cc new_interface.c du…
/phasta/svLS/
H A DGMRES.f58 REAL*8, ALLOCATABLE :: u(:,:,:), h(:,:), unCondU(:,:), y(:), c(:), local
62 2 y(ls%sD), c(ls%sD), s(ls%sD), err(ls%sD+1))
122 tmp = c(j)*h(j,i) + s(j)*h(j+1,i)
123 h(j+1,i) = -s(j)*h(j,i) + c(j)*h(j+1,i)
127 c(i) = h(i,i)/tmp
132 err(i) = c(i)*err(i)
180 REAL*8, ALLOCATABLE :: u(:,:,:), h(:,:), X(:,:), y(:), c(:), s(:), local
184 2 y(ls%sD), c(ls%sD), s(ls%sD), err(ls%sD+1))
225 tmp = c(j)*h(j,i) + s(j)*h(j+1,i)
226 h(j+1,i) = -s(j)*h(j,i) + c(j)*h(j+1,i)
[all …]
/phasta/phSolver/
H A DCHANGES36 two files were added: symline.c and shptri.c
42 …y conditions merged onto top of the trunk. Ditched the use of common.h by .c functions (instead u…
54 CVS: common/new_interface.c common/partition.cc common/phasta.cc
66 CVS: incompressible/stats.f incompressible/usr.c
97 ifdef cplusplus added to common_c.h to allow new_interface.c to use it
99 GETINTPNTS function specialization for intel platforms removed (getIntPnts.c)
170 CVS: common/gltri.c common/new_interface.c common/proces.f
171 CVS: common/qpbc.f common/readnblk.f common/shp6w.c common/shphex.c
172 CVS: common/shppyr.c common/shptet.c common/symhex.c
173 CVS: common/sympyr.c common/symquad.c common/symquadw.c
[all …]
/phasta/shapeFunction/src/
H A DCMakeLists.txt2 FILE(GLOB SRC_FILES *.cc *.f *.c)
/phasta/phastaIO/
H A DCMakeLists.txt16 set(SRC_FILES phiotmrc.cc phastaIO.cc phiompi.c)

12