http://forum.lowyat.net/ Fri, 09 Oct 2026 05:08:27 +0800 FeedCreator 1.7.2 http://forum.lowyat.net/topic/1799014 How to get the correct fortran output using do while loop?<br /><br />PROGRAM Give_me_a_name<br />IMPLICIT NONE<br />INTEGER :: N=0<br />INTEGER :: i=1<br />REAL :: xbar=0<br />REAL :: sigma=0<br />REAL :: x=0<br />REAL :: sumx=0<br />REAL :: sumx2=0<br /><br />DO WHILE (x&gt;=0)<br />WRITE (*,*) &#39;ENTER NUMBER OF OBSERVATIONS&#39;<br />READ (*,*) x<br />WRITE (*,*) &#39;Number of observations =&#39;, x<br />N=N+1<br />sumx = sumx + x<br />sumx2 = sumx2 + x**2<br />END DO<br />xbar = sumx/N<br />sigma = SQRT((N*sumx2)-sumx**2)/N*(N-1)<br />WRITE (*,*) &#39; Mean of observations = &#39;, xbar<br />WRITE (*,*) &#39;Standard deviation of observations = &#39;, sigma<br />STOP<br />END PROGRAM Give_me_a_name haiyayou Codemasters Sun, 20 Mar 2011 08:50:51 +0800