Searched refs:MC_iPP (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | MachControl.f90 | 5 integer :: MC_iPP !Probe Point index variable
109 T = vartsbuff(MC_iPP, 5, ivartsBuff)
110 u2 = vartsbuff(MC_iPP, 2, ivartsBuff)**2 +
111 & vartsbuff(MC_iPP, 3, ivartsBuff)**2 +
112 & vartsbuff(MC_iPP, 4, ivartsBuff)**2
221 read(1002, *) MC_iPP, MC_surfID
261 write(1002, "(2(i9))") MC_iPP, MC_surfID
|