Home
last modified time | relevance | path

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

/phasta/svLS/
H A DCGRAD.f56 REAL*8 errO, err, alpha, eps, time local
72 err = errO
73 err = err*err
76 IF (err .LT. eps) THEN
80 errO = err
100 err = NORMS(mynNo, commu, R)
101 err = err*err
102 P = R + err/errO*P
105 ls%fNorm = SQRT(err)
107 ls%dB = 5D0*LOG(err/errO)
[all …]
H A DGMRES.f59 2 s(:), err(:) local
62 2 y(ls%sD), c(ls%sD), s(ls%sD), err(ls%sD+1))
87 err(1) = NORMV(dof, mynNo, commu, u(:,:,1))
89 eps = err(1)
100 u(:,:,1) = u(:,:,1)/err(1)
131 err(i+1) = -s(i)*err(i)
132 err(i) = c(i)*err(i)
133 IF (ABS(err(i+1)) .LT. eps) THEN
140 y = err(1:i)
151 ls%fNorm = ABS(err(i+1))
[all …]
/phasta/phSolver/common/
H A Dph_mpi_help.c6 int err = MPI_Allreduce(&val,&res,1,MPI_INT,op,MPI_COMM_WORLD); in ph_ar_int() local
7 assert(err == MPI_SUCCESS); in ph_ar_int()
12 int err = MPI_Allreduce(&val,&res,1,MPI_DOUBLE,op,MPI_COMM_WORLD); in ph_ar_dbl() local
13 assert(err == MPI_SUCCESS); in ph_ar_dbl()
18 int err = MPI_Allreduce(&val,&res,1,MPI_LONG,op,MPI_COMM_WORLD); in ph_ar_long() local
19 assert(err == MPI_SUCCESS); in ph_ar_long()
H A Dmkdir_mod.f10 subroutine mkdir(path, err) argument
13 integer, optional, intent(out) :: err local
16 if( present(err) ) err = loc_err
H A Drwvelb.f52 & form='unformatted', err=877)
56 read (irstin,err=877,end=877) q
61 read (irstin,err=888,end=888) numNDen
83 & form='unformatted', err=996)
H A Dph_mkdir.c5 int err = mkdir(path, S_IRWXU); in ph_mkdir() local
6 return err; in ph_mkdir()
H A Dsettauw.f187 real*8 u,err,utau,yrmi,y,rm,yp,up,kup,f,dfds,rat,efac local
194 err=1.0d-6
210 if(abs(rat).le.err) goto 20
254 real*8 err,savarw,rm,up,cv1,f,dfds,rat,efac local
260 err=1.0d-6
277 if(abs(rat).le.err) goto 20
H A Dsymline.c8 void symline(int *n1, double pt[][4], double wt[], int *err) in symline() argument
13 *err = lineIntPnt(*n1, &lpt, &lwt); in symline()
H A Dsymtripyr.c8 void symtripyr(int *n1, double pt[][4], double wt[], int *err) in symtripyr() argument
13 *err = triIntPntPyr(*n1, &lpt, &lwt); in symtripyr()
H A Dphio_posix.cc28 int err = posix_openfile_single(posixName.c_str(),f); in posix_openfile() local
29 assert(!err); in posix_openfile()
H A Dsymquadw.c8 void symquadw(int *n1, double pt[][4], double wt[], int *err) in symquadw() argument
13 *err = quadwIntPnt(*n1, &lpt, &lwt); in symquadw()
H A Dsymquad.c10 void symquad(int *n1, double pt[][4], double wt[], int *err) in symquad() argument
15 *err = quadIntPnt(*n1, &lpt, &lwt); in symquad()
H A Dsonfath.f30 open(kmap,file='geom.kmap',status='old',err=183)
33 read(kmap,*,err=183) iorig
H A Dsymtri.c8 void symtri(int *n1, double pt[][4], double wt[], int *err) in symtri() argument
13 *err = triIntPnt(*n1, &lpt, &lwt); in symtri()
H A Dsymhex.c10 void symhex(int *n1, double pt[][4], double wt[], int *err) in symhex() argument
15 *err = hexIntPnt(*n1, &lpt, &lwt); in symhex()
H A Dsymwdg.c8 void symwdg(int *n1, double pt[][4], double wt[], int *err) in symwdg() argument
13 *err = wdgIntPnt(*n1, &lpt, &lwt); in symwdg()
H A Dsymtet.c9 void symtet(int *n1, double pt[][4], double wt[], int *err) in symtet() argument
14 *err = tetIntPnt(*n1, &lpt, &lwt); in symtet()
H A Dsympyr.c10 void sympyr(int *n1, double pt[][4], double wt[], int *err) in sympyr() argument
15 *err = pyrIntPnt(*n1, &lpt, &lwt); in sympyr()
H A Dinput.f39 & open (unit=iecho, file=fecho, status='unknown', err=996)
/phasta/phSolver/common/test/
H A Dchdir_mod.f10 subroutine chdir(path, err) argument
13 integer, optional, intent(out) :: err local
16 if( present(err) ) err = loc_err
H A DphIOreadIlwork.cc16 int err = posix_openfile_single(geomfilename, file); in openfile() local
18 MPI_Allreduce(&err, &globalerr, 1, MPI_INT, MPI_SUM, MPI_COMM_WORLD); in openfile()
19 if(err > 0 && !commrank) in openfile()
56 int err = openfile(geomfilename, file); in main() local
57 if(err > 0) { in main()
60 err = openfile(geomfilename, file); in main()
61 assert(!err); in main()
/phasta/phastaIO/
H A Dphiompi.c6 int err = MPI_Allreduce(&val,&res,1,MPI_UNSIGNED_LONG,op,MPI_COMM_WORLD); in phio_ar_sizet() local
7 assert(err == MPI_SUCCESS); in phio_ar_sizet()
12 int err = MPI_Allreduce(&val,&res,1,MPI_DOUBLE,op,MPI_COMM_WORLD); in phio_ar_dbl() local
13 assert(err == MPI_SUCCESS); in phio_ar_dbl()
H A DphastaIO.cc881 int err = mkdir(name.c_str(), DIR_MODE); in my_mkdir() local
882 if ((err == -1) && (errno == EEXIST)) { in my_mkdir()
884 err = 0; in my_mkdir()
887 assert(!err); in my_mkdir()
/phasta/phSolver/compressible/
H A Dbflux.f107 open (unit=iout, file=fname1, status='unknown', err=995)
109 & open (unit=ichmou, file=fname2, status='unknown', err=996)
111 open (unit=iout, file=fname1, status='unknown', err=995,
114 & open (unit=ichmou, file=fname2, status='unknown', err=996,
320 open (unit=iflux, file=fname1, status='unknown', err=997)
/phasta/phSolver/incompressible/
H A Dgetdiff.f161 real*8 err,ev2sa,rm,cv1,f,dfds,rat,efac local
165 err=1.0d-6
180 if(abs(rat).le.err) goto 20