Searched refs:inform (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | sonfath.f | 9 integer inform,n1m,n2m,n3m,numpe,numpe1,numnp,maxnode, tfath, local
23 read(*,*)inform
39 inform=5
43 if(inform.eq.4) then
44 inform=1
58 if (inform.eq.1) then ! For averaging over Z - lines
86 if (inform.eq.2) then ! For averaging over X-Z planes
117 if( inform.eq.3 )then !For averaging over X-Y-Z
143 if(inform.eq.5) then ! local clipping
|