| /phasta/phSolver/common/ |
| H A D | ph_mpi_help.c | 4 int ph_ar_int(int val, int op) { in ph_ar_int() argument
6 int err = MPI_Allreduce(&val,&res,1,MPI_INT,op,MPI_COMM_WORLD); in ph_ar_int()
10 double ph_ar_dbl(double val, int op) { in ph_ar_dbl() argument
12 int err = MPI_Allreduce(&val,&res,1,MPI_DOUBLE,op,MPI_COMM_WORLD); in ph_ar_dbl()
16 long ph_ar_long(long val, int op) { in ph_ar_long() argument
18 int err = MPI_Allreduce(&val,&res,1,MPI_LONG,op,MPI_COMM_WORLD); in ph_ar_long()
22 int ph_min_int(int val) { in ph_min_int() argument
23 return ph_ar_int(val,MPI_MIN); in ph_min_int()
25 int ph_max_int(int val) { in ph_max_int() argument
26 return ph_ar_int(val,MPI_MAX); in ph_max_int()
[all …]
|
| H A D | ph_mpi_help.h | 9 int ph_min_int(int val);
10 int ph_max_int(int val);
11 long ph_add_long(long val);
12 double ph_min_double(double val);
13 double ph_max_double(double val);
14 double ph_add_double(double val);
|
| H A D | phStr.f | 4 subroutine phstr_appendInt(str, val)
8 integer(c_int), value, intent(in) :: val
13 subroutine phstr_appendDbl(str, val)
17 real(c_double), value, intent(in) :: val
|
| H A D | phIO.f | 73 subroutine phio_appendInt(str, val)
77 integer(c_int), value, intent(in) :: val
|
| /phasta/phastaIO/ |
| H A D | phiompi.c | 4 size_t phio_ar_sizet(size_t val, int op) { in phio_ar_sizet() argument
6 int err = MPI_Allreduce(&val,&res,1,MPI_UNSIGNED_LONG,op,MPI_COMM_WORLD); in phio_ar_sizet()
10 double phio_ar_dbl(double val, int op) { in phio_ar_dbl() argument
12 int err = MPI_Allreduce(&val,&res,1,MPI_DOUBLE,op,MPI_COMM_WORLD); in phio_ar_dbl()
16 size_t phio_min_sizet(size_t val) { in phio_min_sizet() argument
17 return phio_ar_sizet(val,MPI_MIN); in phio_min_sizet()
19 size_t phio_max_sizet(size_t val) { in phio_max_sizet() argument
20 return phio_ar_sizet(val,MPI_MAX); in phio_max_sizet()
22 size_t phio_add_sizet(size_t val) { in phio_add_sizet() argument
23 return phio_ar_sizet(val,MPI_SUM); in phio_add_sizet()
[all …]
|
| H A D | phiompi.h | 12 size_t phio_min_sizet(size_t val);
13 size_t phio_max_sizet(size_t val);
14 size_t phio_add_sizet(size_t val);
15 double phio_min_double(double val);
16 double phio_max_double(double val);
17 double phio_add_double(double val);
|
| H A D | vtkPPhastaReader.cxx | 534 double val; in RequestInformation() local
536 &val)) in RequestInformation()
538 info.TimeValue = val; in RequestInformation()
|
| /phasta/svLS/ |
| H A D | BC.f | 74 ALLOCATE(lhs%face(faIn)%glob(nNo), lhs%face(faIn)%val(dof,nNo),
84 lhs%face(faIn)%val(:,a) = Val(:,a)
87 lhs%face(faIn)%val = 0D0
101 v(:,Ac) = lhs%face(faIn)%val(:,a)
107 lhs%face(faIn)%val(:,a) = v(:,Ac)
135 DEALLOCATE(lhs%face(faIn)%glob, lhs%face(faIn)%val,
|
| H A D | PRECOND.f | 110 W(1:i,Ac) = W(1:i,Ac)*face(faIn)%val(1:i,a)
217 face(faIn)%valM(i,a) = face(faIn)%val(i,a)*W(i,Ac)
|
| H A D | svLS_STRUCT.h | 78 ! Degrees of freedom for val (IN)
91 REAL*8, ALLOCATABLE :: val(:,:)
|