Home
last modified time | relevance | path

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

123

/phasta/phSolver/common/
H A Dctypes.f14 CALL MPI_TYPE_EXTENT (MPI_DOUBLE_PRECISION,sizeofdouble,ierr)
104 & MPI_LONG_LONG_INT, sevsegtype(itask,16), ierr)
107 & MPI_DOUBLE_PRECISION, sevsegtype(itask,1), ierr)
115 & sevsegtype(itask,2), ierr)
118 & sevsegtype(itask,3), ierr)
121 & sevsegtype(itask,1),sevsegtype(itask,4), ierr)
123 & sevsegtype(itask,1),sevsegtype(itask,5), ierr)
125 & sevsegtype(itask,6), ierr)
127 & sevsegtype(itask,7), ierr)
129 & sevsegtype(itask,8), ierr)
[all …]
H A Dmpitools.f19 if(impistat2.eq.1) call MPI_BARRIER (MPI_COMM_WORLD, ierr)
22 & MPI_DOUBLE_PRECISION, MPI_SUM, MPI_COMM_WORLD, ierr )
50 if(impistat2.eq.1) call MPI_BARRIER (MPI_COMM_WORLD, ierr)
53 & MPI_DOUBLE_PRECISION, MPI_SUM, MPI_COMM_WORLD, ierr )
83 if(impistat2.eq.1) call MPI_BARRIER (MPI_COMM_WORLD, ierr)
86 & MPI_INTEGER, MPI_MAX, MPI_COMM_WORLD, ierr )
123 if(impistat2.eq.1) call MPI_BARRIER (MPI_COMM_WORLD, ierr)
126 & MPI_DOUBLE_PRECISION, MPI_SUM, MPI_COMM_WORLD, ierr)
167 if(impistat2.eq.1) call MPI_BARRIER (MPI_COMM_WORLD, ierr)
170 & MPI_DOUBLE_PRECISION, MPI_SUM, MPI_COMM_WORLD, ierr)
[all …]
H A Drerun_check.f11 open(unit=772,file='rerun-check',status='old',iostat=ierr)
12 if(ierr.eq.0) read(772,*)stopjob
17 . MPI_COMM_WORLD,ierr)
H A DINIprofile.f41 call MPI_BARRIER(MPI_COMM_WORLD,ierr)
43 & MPI_REAL8, MPI_MAX, MPI_COMM_WORLD,ierr)
103 call MPI_BARRIER(MPI_COMM_WORLD,ierr)
105 & MPI_REAL8, MPI_MIN, MPI_COMM_WORLD,ierr)
107 & MPI_REAL8, MPI_MAX, MPI_COMM_WORLD,ierr)
108 call MPI_BARRIER(MPI_COMM_WORLD,ierr)
H A DcommuInt.f115 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
122 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
146 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
150 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
158 call MPI_WAITALL(m, req, stat, ierr)
H A Dcommu.f33 integer status(MPI_STATUS_SIZE), ierr local
43 if(impistat2.eq.1) call MPI_BARRIER (MPI_COMM_WORLD, ierr)
160 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
179 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
213 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
229 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
249 call MPI_WAITALL(m, req, stat, ierr)
H A Dturbsa.f55 integer :: ierr local
68 call MPI_BARRIER(MPI_COMM_WORLD,ierr)
131 & MPI_INTEGER,MPI_COMM_WORLD,ierr)
176 & MPI_DOUBLE_PRECISION,MPI_COMM_WORLD,ierr)
203 call MPI_BARRIER(MPI_COMM_WORLD,ierr)
H A Dphasta.cc97 int size,ierr; in run() local
110 ierr = input_fform(ctrl); in run()
111 if(!ierr){ in run()
170 int size,ierr; in phasta() local
276 ierr = input_fform(ctrl); in phasta()
277 if(!ierr){ in phasta()
/phasta/AcuStat/src/
H A Dctypes.f20 CALL MPI_TYPE_EXTENT (MPI_DOUBLE_PRECISION,sizeofdouble,ierr)
106 & MPI_DOUBLE_PRECISION, sevsegtype(itask,1), ierr)
114 & sevsegtype(itask,2), ierr)
117 & sevsegtype(itask,3), ierr)
120 & sevsegtype(itask,1),sevsegtype(itask,4), ierr)
122 & sevsegtype(itask,1),sevsegtype(itask,5), ierr)
124 & sevsegtype(itask,6), ierr)
126 & sevsegtype(itask,7), ierr)
128 & sevsegtype(itask,8), ierr)
130 & sevsegtype(itask,9), ierr)
[all …]
H A DcommuMax.f33 integer status(MPI_STATUS_SIZE), ierr local
43 if(impistat2.eq.1) call MPI_BARRIER (MPI_COMM_WORLD, ierr)
153 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
164 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
190 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
198 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
210 call MPI_WAITALL(m, req, stat, ierr)
H A Dreadnblk.f57 integer :: igeom, ibndc, irstin, ierr local
94 call mpi_barrier(mpi_comm_world, ierr)
95 call mpi_bcast(exinput,1,MPI_LOGICAL,0,mpi_comm_world,ierr)
100 call MPI_Bcast(numts,1,MPI_INTEGER,0,MPI_COMM_WORLD, ierr)
146 call MPI_Bcast(tablets,isize,MPI_INTEGER,0,MPI_COMM_WORLD, ierr)
147 call MPI_Bcast(ierror,1,MPI_INTEGER,0,MPI_COMM_WORLD, ierr)
148 call MPI_Bcast(numphavg,1,MPI_INTEGER,0,MPI_COMM_WORLD, ierr)
149 call MPI_Bcast(idwal,1,MPI_INTEGER,0,MPI_COMM_WORLD, ierr)
150 call MPI_Bcast(ivort,1,MPI_INTEGER,0,MPI_COMM_WORLD, ierr)
450 call mpi_barrier(mpi_comm_world, ierr)
/phasta/M2NFixBnd/src/
H A Dctypes.f20 CALL MPI_TYPE_EXTENT (MPI_DOUBLE_PRECISION,sizeofdouble,ierr)
106 & MPI_DOUBLE_PRECISION, sevsegtype(itask,1), ierr)
114 & sevsegtype(itask,2), ierr)
117 & sevsegtype(itask,3), ierr)
120 & sevsegtype(itask,1),sevsegtype(itask,4), ierr)
122 & sevsegtype(itask,1),sevsegtype(itask,5), ierr)
124 & sevsegtype(itask,6), ierr)
126 & sevsegtype(itask,7), ierr)
128 & sevsegtype(itask,8), ierr)
130 & sevsegtype(itask,9), ierr)
[all …]
H A Dreadnblk.f58 integer :: igeom, ibndc, irstin, ierr local
94 call mpi_barrier(mpi_comm_world, ierr)
95 call mpi_bcast(exinput,1,MPI_LOGICAL,0,mpi_comm_world,ierr)
101 call mpi_bcast(irstart,1,MPI_INTEGER,0,mpi_comm_world,ierr)
102 call mpi_bcast(iybar,1,MPI_INTEGER,0,mpi_comm_world,ierr)
103 call mpi_bcast(ierror,1,MPI_INTEGER,0,mpi_comm_world,ierr)
104 call mpi_bcast(numphavg,1,MPI_INTEGER,0,mpi_comm_world,ierr)
105 call mpi_bcast(ivort,1,MPI_INTEGER,0,mpi_comm_world,ierr)
106 call mpi_bcast(idwal,1,MPI_INTEGER,0,mpi_comm_world,ierr)
151 call mpi_barrier(mpi_comm_world, ierr)
[all …]
H A DcommuMax.f33 integer status(MPI_STATUS_SIZE), ierr local
43 if(impistat2.eq.1) call MPI_BARRIER (MPI_COMM_WORLD, ierr)
154 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
165 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
191 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
199 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
211 call MPI_WAITALL(m, req, stat, ierr)
/phasta/M2N/src/
H A Dctypes.f20 CALL MPI_TYPE_EXTENT (MPI_DOUBLE_PRECISION,sizeofdouble,ierr)
105 & MPI_DOUBLE_PRECISION, sevsegtype(itask,1), ierr)
113 & sevsegtype(itask,2), ierr)
116 & sevsegtype(itask,3), ierr)
119 & sevsegtype(itask,1),sevsegtype(itask,4), ierr)
121 & sevsegtype(itask,1),sevsegtype(itask,5), ierr)
123 & sevsegtype(itask,6), ierr)
125 & sevsegtype(itask,7), ierr)
127 & sevsegtype(itask,8), ierr)
129 & sevsegtype(itask,9), ierr)
[all …]
H A Dreadnblk.f60 integer :: igeomBAK, ibndc, irstin, ierr local
123 call mpi_barrier(mpi_comm_world, ierr)
124 call mpi_bcast(exinput,1,MPI_LOGICAL,0,mpi_comm_world,ierr)
128 call mpi_bcast(irstart,1,MPI_INTEGER,0,mpi_comm_world,ierr)
129 call mpi_bcast(irstartmap,1,MPI_INTEGER,0,mpi_comm_world,ierr)
130 call mpi_bcast(iybar,1,MPI_INTEGER,0,mpi_comm_world,ierr)
131 call mpi_bcast(ierror,1,MPI_INTEGER,0,mpi_comm_world,ierr)
132 call mpi_bcast(numphavg,1,MPI_INTEGER,0,mpi_comm_world,ierr)
133 call mpi_bcast(ivort,1,MPI_INTEGER,0,mpi_comm_world,ierr)
134 call mpi_bcast(idwal,1,MPI_INTEGER,0,mpi_comm_world,ierr)
[all …]
H A Dcommu.f33 integer status(MPI_STATUS_SIZE), ierr local
43 if(impistat2.eq.1) call MPI_BARRIER (MPI_COMM_WORLD, ierr)
150 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
161 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
187 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
195 & iother, itag, MPI_COMM_WORLD, req(m), ierr)
207 call MPI_WAITALL(m, req, stat, ierr)
/phasta/phSolver/compressible/
H A Dsolgmrpetsc.c37 static PetscErrorCode ierr; variable
202 ierr = MatCreateBAIJ(PETSC_COMM_WORLD, petsc_bs, petsc_m, petsc_m, petsc_M, petsc_M, in SolGMRp()
205 ierr = MatSetOption(lhsP, MAT_NEW_NONZERO_ALLOCATION_ERR, PETSC_FALSE); in SolGMRp()
209 ierr = MatSetOption(lhsP, MAT_SUBSET_OFF_PROC_ENTRIES, PETSC_TRUE); in SolGMRp()
211 ierr = MatSetUp(lhsP); in SolGMRp()
214 ierr = MatGetOwnershipRange(lhsP, &myMatStart, &myMatEnd); in SolGMRp()
218 if(genpar.lhs ==1) ierr = MatZeroEntries(lhsP); in SolGMRp()
287 ierr = ISCreateGeneral(PETSC_COMM_SELF, petsc_n, indexsetary, in SolGMRp()
293 ierr = MatAssemblyBegin(lhsP, MAT_FINAL_ASSEMBLY); in SolGMRp()
294 ierr = MatAssemblyEnd(lhsP, MAT_FINAL_ASSEMBLY); in SolGMRp()
[all …]
H A Dtimedata.f9023 call MPI_BARRIER(MPI_COMM_WORLD, ierr)
24 call MPI_BCAST(exts,1,MPI_INTEGER,master,MPI_COMM_WORLD,ierr)
95 call MPI_BARRIER(MPI_COMM_WORLD, ierr)
97 & MPI_COMM_WORLD, ierr)
99 & MPI_COMM_WORLD, ierr)
101 & MPI_COMM_WORLD, ierr)
103 & MPI_COMM_WORLD, ierr)
105 & MPI_COMM_WORLD, ierr)
120 call MPI_BARRIER(MPI_COMM_WORLD, ierr)
122 & master, MPI_COMM_WORLD, ierr)
[all …]
H A Drstat.f42 & MPI_DOUBLE_PRECISION,MPI_SUM, MPI_COMM_WORLD,ierr)
44 & MPI_DOUBLE_PRECISION,MPI_SUM, MPI_COMM_WORLD,ierr)
46 & MPI_DOUBLE_PRECISION,MPI_SUM, MPI_COMM_WORLD,ierr)
48 & MPI_DOUBLE_PRECISION,MPI_SUM, MPI_COMM_WORLD,ierr)
50 & MPI_DOUBLE_PRECISION,MPI_SUM, MPI_COMM_WORLD,ierr)
52 & MPI_DOUBLE_PRECISION,MPI_SUM, MPI_COMM_WORLD,ierr)
79 & MPI_COMM_WORLD,ierr)
200 & ierr)
292 & MPI_DOUBLE_PRECISION,MPI_SUM, MPI_COMM_WORLD,ierr)
294 & MPI_DOUBLE_PRECISION,MPI_SUM, MPI_COMM_WORLD,ierr)
[all …]
/phasta/phSolver/incompressible/
H A Dforces.f33 & MPI_SUM, master, MPI_COMM_WORLD,ierr)
61 call MPI_BARRIER(MPI_COMM_WORLD, ierr)
63 & MPI_DOUBLE_PRECISION,MPI_SUM, MPI_COMM_WORLD,ierr)
70 call MPI_BARRIER(MPI_COMM_WORLD, ierr)
72 & MPI_DOUBLE_PRECISION,MPI_SUM, MPI_COMM_WORLD,ierr)
73 call MPI_BARRIER(MPI_COMM_WORLD, ierr)
75 & MPI_DOUBLE_PRECISION,MPI_SUM, MPI_COMM_WORLD,ierr)
76 call MPI_BARRIER(MPI_COMM_WORLD, ierr)
78 & MPI_DOUBLE_PRECISION,MPI_SUM, MPI_COMM_WORLD,ierr)
79 call MPI_BARRIER(MPI_COMM_WORLD, ierr)
[all …]
/phasta/svLS/
H A DINCOMMU.f50 INTEGER i, j, k, s, e, ierr, nTasks, tF, stat(MPI_STATUS_SIZE) local
72 2 cS(i)%tag, comm, cS(i)%req, ierr)
75 2 cS(i)%tag, comm, cS(i)%req, ierr)
83 CALL MPI_WAIT(cS(i)%req, stat, ierr)
108 CALL MPI_WAIT(cS(i)%req, stat, ierr)
110 2 cS(i)%tag, comm, cS(i)%req, ierr)
113 2 cS(i)%tag, comm, cS(i)%req, ierr)
120 CALL MPI_WAIT(cS(i)%req, stat, ierr)
138 INTEGER i, j, k, s, e, ierr, nTasks, tF, stat(MPI_STATUS_SIZE) local
160 2 cS(i)%tag, comm, cS(i)%req, ierr)
[all …]
H A DCOMMU.f48 INTEGER ierr local
61 CALL MPI_COMM_RANK(comm, commu%task, ierr)
62 CALL MPI_COMM_SIZE(comm, commu%nTasks, ierr)
65 2 comm, ierr)
69 CALL MPI_FINALIZE(comm, ierr)
H A DNORM.f49 INTEGER i, ierr local
79 2 commu%comm, ierr)
98 INTEGER i, ierr local
108 2 commu%comm, ierr)
H A DDOT.f49 INTEGER i, ierr local
80 2 ierr)
97 INTEGER i, ierr local
108 2 ierr)

123