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 Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
What does this do?
Thanks. You're indeed right. http://www.personal.psu.edu/jhm/f90/lectures/11.html -
What does this do?
Also, what does this do? DO 2 K = L, N Z = DABS(A(L,K)) IF (Z - PIVOT) 2,2,1 1 LIG(L) = K PIVOT = Z 2 CONTINUE I can't make any sense of the IF statement. What does 2,2,1 do? Why isn't there a logical operator that follows (Z-PIVOT)? What version of Fortran coding is this? I'm... -
What does this do?
> The "1" means just to continue onto the next line Oh. I had this impression as well, but I always thought that was what the ampersand was used for. Thanks for your help -
What does this do?
I'm trying to interpret someone's Fortran code. He's written the following: IMPLICIT REAL*8 (A-H,O-Z) DIMENSION WEW(2710,2710),LV(2710),W(2710) 1,ETA(2710) COMMON /FUN/ Z(2710),zm(2710),E,M,MM,U(2710),FIFI(2710),N,NP,PI 1,AZ(2710),DZ(2710) 1,Y(2710),x(2710) 1,gr,lcon What does the... -
Avoiding Global Variables and Subroutines
I'm programming this in Fortran 90. The overall program follows this format: PROGRAM TEST Declare variables X = 2 CALL WALMART(FUNC, ...other stuff...) END TEST SUBROUTINE FUNC(MONEY, Y) MONEY = X*Y END The problem is simple. I ask for some input array (X), then call a routine called...
