cg Version

if(ie .gt. 50) ie = 50end ifspec(ntype,ie) = spec(ntype,ie) + wt(np)end ifend if! ----------------------------------------------------------------! Print out stack information (for limited number cases and lines)! ----------------------------------------------------------------if (ncount .le. nwrite .and. ilines .le. nlines) thenilines = ilines + 1write(6,100) e(np),x(np),y(np),z(np),u(np),v(np),w(np),* iql,irl,iarg100 FORMAT(7G15.7,3I5)end if! ------------------------------------! Output particle information for plot! ------------------------------------if (ncount.le.maxpict) thencall plotxyz(iarg,np,iq(np),x(np),y(np),z(np),e(np),ir(np),* wt(np),time(np))end ifreturnend4.11 Subroutine howfarCG howfar howfar howfar howfar (idisc=1) 5 ucnai.f ucnaicgv.f cg howfar ucnai.f ucnaicgv.f ucnai.f 1.6 [2]15