| /phasta/AcuStat/src/ |
| H A D | error.f | 31 open (unit=ierror, file=ferror, status='unknown')
36 if (num .ne. 0) write (ierror,1000) title, routin, variab, num
37 if (num .eq. 0) write (ierror,1000) title, routin, variab
41 close (ierror)
|
| H A D | readnblk.f | 65 integer :: ierror, idwal, iphavg, ivort, ndofvort local
84 read(24,*) ierror
115 if(ierror .gt. 0) then
117 ierror = 1 ! security
147 call MPI_Bcast(ierror,1,MPI_INTEGER,0,MPI_COMM_WORLD, ierr)
245 if(ierror == 1) then
432 if (ierror == 1) then
443 …nsynciofieldswriterestart = 2 + ierror + numphavg + ivort + idwal ! 2 for solution and accumulated…
459 if (ierror == 1) then
485 if(ierror == 1) then
|
| /phasta/phSolver/common/ |
| H A D | error.f | 31 open (unit=ierror, file=ferror, status='unknown')
36 if (num .ne. 0) write (ierror,1000) title, routin, variab,num
37 if (num .eq. 0) write (ierror,1000) title, routin, variab
41 close (ierror)
|
| H A D | common.f | 56 ierror = 22
|
| H A D | input.f | 257 & ierror, itable, iforce, igraph, itime
|
| H A D | common_c.h | 425 int ierror; member
|
| H A D | common.h | 206 & ierror, itable, iforce, igraph, itime
|
| /phasta/M2NFixBnd/src/ |
| H A D | error.f | 32 open (unit=ierror, file=ferror, status='unknown')
37 if (num .ne. 0) write (ierror,1000) title, routin, variab,num
38 if (num .eq. 0) write (ierror,1000) title, routin, variab
42 close (ierror)
|
| H A D | readnblk.f | 62 integer :: ierror, numphavg, ivort, idwal, idebug, iphavg local
83 read(72,*) ierror
103 call mpi_bcast(ierror,1,MPI_INTEGER,0,mpi_comm_world,ierr)
120 if(ierror .gt. 0) then
122 ierror = 1 ! security
399 if(ierror == 1) then
423 ierror = 0
633 if(ierror == 1) then
707 if(ierror == 1) then
784 nsynciofieldswriterestart = 1+iybar+ierror+numphavg+ivort+idwal
[all …]
|
| /phasta/phSolver/common/test/ |
| H A D | phIOwrite.f | 8 integer, target :: rank, ierror, one, ppf, peers, fish, nfiles variable
15 call MPI_Init(ierror)
16 call MPI_Comm_rank(MPI_COMM_WORLD, rank, ierror)
17 call MPI_Comm_size(MPI_COMM_WORLD, peers, ierror)
64 call MPI_Finalize(ierror)
|
| H A D | phIOread.f | 13 integer :: rank, ierror, two, nfiles variable
22 call MPI_Init(ierror)
23 call MPI_Comm_rank(MPI_COMM_WORLD, rank, ierror)
42 call MPI_Barrier(MPI_COMM_WORLD, ierror)
67 call MPI_Finalize(ierror)
|
| /phasta/M2N/src/ |
| H A D | readnblk.f | 79 integer :: ierror, numphavg, ivort, idwal, idebug, iphavg, irankN local
110 read(72,*) ierror
131 call mpi_bcast(ierror,1,MPI_INTEGER,0,mpi_comm_world,ierr)
149 if(ierror .gt. 0) then
151 ierror = 1 ! security
416 if(ierror == 1) then
438 ierror = 0
764 if(ierror == 1) then
790 if(ierror == 1) then
868 if(ierror==1) then
[all …]
|
| /phasta/AcuStat/include/ |
| H A D | commonAcuStat_c.h | 344 int ierror; member
|
| H A D | commonAcuStat.h | 159 & ierror, itable, iforce, igraph, itime
|
| /phasta/M2N/include/ |
| H A D | commonM2N_c.h | 344 int ierror; member
|
| H A D | commonM2N.h | 159 & ierror, itable, iforce, igraph, itime
|
| /phasta/M2NFixBnd/include/ |
| H A D | commonM2NFixBnd_c.h | 344 int ierror; member
|
| H A D | commonM2NFixBnd.h | 159 & ierror, itable, iforce, igraph, itime
|