Home
last modified time | relevance | path

Searched refs:irstart (Results 1 – 5 of 5) sorted by relevance

/phasta/phSolver/common/
H A Drwvelb.f37 read(72,*) irstart
40 if (irstart .gt. 0) itmp = int(log10(float(irstart)))+1
42 write (fname1,fmt1) irstart
H A Dreadnblk.f72 irstart=0
75 read(72,*) irstart
78 call drvAllreduceMaxInt(irstart,readstep)
79 irstart=readstep
80 lstep=irstart ! in case restart files have no fields
86 if (irstart .gt. 0) itmp = int(log10(float(irstart)))+1
88 write (fnamer,fmt1) irstart
483 call phstr_appendInt(fnamer, irstart)
H A Dbctint.f139 integer irstart local
160 read(72,*) irstart
164 t0 = max(zero,(irstart-1)*Delt(1))
/phasta/M2NFixBnd/src/
H A Dreadnblk.f61 integer :: irstart, irstartmap, iybar local
80 read(72,*) irstart
101 call mpi_bcast(irstart,1,MPI_INTEGER,0,mpi_comm_world,ierr)
156 lstep=irstart ! in case restart files have no fields
293 if (irstart .gt. 0) itmp = int(log10(float(irstart+1)))+1
296 write (fnamer,fmt1) irstart
/phasta/M2N/src/
H A Dreadnblk.f78 integer :: ireducemethod, isbinary, irstart, irstartmap, iybar local
107 read(72,*) irstart
128 call mpi_bcast(irstart,1,MPI_INTEGER,0,mpi_comm_world,ierr)
184 lstep=irstart ! in case restart files have no fields
305 if (irstart .gt. 0) itmp = int(log10(float(irstart+1)))+1
309 write (fnamer,fmt1) irstart