| /phasta/phSolver/incompressible/ |
| H A D | itrdrv.f | 704 do iphase=1,nphasesincycle
706 call write_phavg2(myrank,'a','phase_average',13,iphase,
707 & nphasesincycle,yphbar(:,:,iphase),'d',nshg,15,lstep)
709 call write_phavg2(myrank,'a','phase_average',13,iphase,
710 & nphasesincycle,yphbar(:,:,iphase),'d',nshg,11,lstep)
1943 iphase = 1 ! init. to one in beginning of every cycle
1950 if(istepincycle.eq.iphase*nstepsbtwphase) then
1952 iphase = iphase+1 ! use 'iphase-1' below
1959 write(*,*) 'nsamples in phase ',iphase-1,': ',
1963 yphbar(:,1,iphase-1) = tfactphase*yold(:,1) +
[all …]
|
| /phasta/M2N/src/ |
| H A D | new_interface.c | 399 int* iphase, in Write_M2N_PhAvg2() argument
408 if(*iphase<10) in Write_M2N_PhAvg2()
410 else if(*iphase<100) in Write_M2N_PhAvg2()
412 else if(*iphase<1000) in Write_M2N_PhAvg2()
423 sprintf(straddtagsize,"%d",*iphase); in Write_M2N_PhAvg2()
425 if(*iphase<10) { in Write_M2N_PhAvg2()
428 else if(*iphase<100) { in Write_M2N_PhAvg2()
432 else if(*iphase<1000) { in Write_M2N_PhAvg2()
855 int* iphase, in Write_PhAvg() argument
864 sprintf(rfile,"restart_phase_avg_%d.%d.%d",*stepno,*iphase,*pid+1); in Write_PhAvg()
[all …]
|
| /phasta/M2NFixBnd/src/ |
| H A D | new_interface.c | 597 int* iphase, in Write_PhAvg() argument
606 sprintf(rfile,"restart_phase_avg_%d.%d.%d",*stepno,*iphase,*pid+1); in Write_PhAvg()
685 int* iphase, in Write_PhAvg2() argument
694 if(*iphase<10) in Write_PhAvg2()
696 else if(*iphase<100) in Write_PhAvg2()
698 else if(*iphase<1000) in Write_PhAvg2()
709 sprintf(straddtagsize,"%d",*iphase); in Write_PhAvg2()
711 if(*iphase<10) { in Write_PhAvg2()
714 else if(*iphase<100) { in Write_PhAvg2()
718 else if(*iphase<1000) { in Write_PhAvg2()
|
| /phasta/phSolver/common/ |
| H A D | new_interface.c | 452 int* iphase, in Write_PhAvg2() argument
473 if(*iphase<10) in Write_PhAvg2()
475 else if(*iphase<100) in Write_PhAvg2()
477 else if(*iphase<1000) in Write_PhAvg2()
486 sprintf(straddtagsize,"%d",*iphase); in Write_PhAvg2()
488 if(*iphase<10) { in Write_PhAvg2()
491 else if(*iphase<100) { in Write_PhAvg2()
495 else if(*iphase<1000) { in Write_PhAvg2()
|
| H A D | new_interface.h | 72 int* iphase,
|
| /phasta/AcuStat/src/ |
| H A D | new_interface.c | 706 int* iphase, in Write_PhAvg() argument
715 sprintf(rfile,"restart_phase_avg_%d.%d.%d",*stepno,*iphase,*pid+1); in Write_PhAvg()
794 int* iphase, in Write_PhAvg2() argument
803 if(*iphase<10) in Write_PhAvg2()
805 else if(*iphase<100) in Write_PhAvg2()
807 else if(*iphase<1000) in Write_PhAvg2()
818 sprintf(straddtagsize,"%d",*iphase); in Write_PhAvg2()
820 if(*iphase<10) { in Write_PhAvg2()
823 else if(*iphase<100) { in Write_PhAvg2()
827 else if(*iphase<1000) { in Write_PhAvg2()
|
| /phasta/M2N/include/ |
| H A D | new_interfaceM2N.h | 63 int* iphase,
109 int* iphase,
|
| /phasta/M2NFixBnd/include/ |
| H A D | new_interfaceM2NFixBnd.h | 79 int* iphase,
|
| /phasta/AcuStat/include/ |
| H A D | new_interfaceAcuStat.h | 93 int* iphase,
|