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 strongm 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
NJ isn't large. nj=30. NI is 10000.But it seems that my way doesn't work out. I have every i step printed!! -
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... -
no progress of the solution
thank you so much gummibaer!I think that your first post was more helpful than the 2nd one. It seems that there's some progress now.But I'll try the solution that you propose on your 2nd post,too. -
-
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
I hope now it's better! ! initial conditions X(1)=0.0 Z(1)=0.0 DX(1)=0.0 DZ(1)=0.0 THETA(1)=THETAO DELTA(1)=RAD ! mixing layer thickness DMIX(1)=0.0 YCORE(1)=RAD !into the boundaries DO J=1,NYI+1 U(1,J)=1.0 V(1,J)=0.0... -
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...
