Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
print specific values of array
Hi, I have an enormous amount of results to print and i'm wondering if there's a way to print them every 100 steps for example. i'm trying to do it that way DO I=1,NI,100 DO J=1,NJ WRITE(2,200) DS(I),S(I),U(I,J) enddo ENDDO but i didn't make any progress so far. I'm not sure... -
Max Value of Array
Hello again, I was wondering if sb knows how can i calculate the max value of an array. This is what I mean: IF(U(I+1,J).LE.UMEAN(I+1)) then YUHALF(I+1)=(J-2)*DY+((Y(J)-Y(J-1))/(U(I+1,J)-U(I+1,J-1)))*(UMEAN(I+1)-U(I+1,J-1)) write(*,*) 'i=',i+1,'j=',j,'yuhalf=',yuhalf(I+1) end if I have... -
no progress of the solution
Hi, I'm working on a code for some months now and i have this problem: I can't forward the solution more than 2 steps than the initial steps. I think that the problem is that I set NYI+2 out of the boundaries,but I'm not sure. And as I increase the number of iterations for i, it seems that j...
