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!

Search results for query: *

  • Users: AdYrL
  • Order by date
  1. AdYrL

    Array Too Long

    Hi, I've recently written a program, but it seems that one part of it is too long, the words appear in green and then red. I'm using the fortran fixed form programming Is there a way for me to shorten the array because it deals with calculations. I've tried using "&" and it doesn't work still...
  2. AdYrL

    F14.6

    Hi, i came across this in one of the programs and i had a hard time trying to figure out what F14.6 is. The program goes like this: write(*,60)pint,(dexp(pi*xi)-dexp(-pi*xi))*dcos(pi*eta) & /(dexp(pi)-dexp(-pi)) 60 format('Numerical and exact values are:', & F14.6,' and',F14.6,'...
  3. AdYrL

    Fortran Matrix Help

    The warning message actually says: Warning: In the call to IDAMAX, actual argument #1 does not match the type and kind of the corresponding dummy argument. l=IDAMAX(N-k+1,AMD(k,k),1)+k-1 Warning: In the call to DSCAL, actual argument #1 does not match the type and kind of the corresponding...
  4. AdYrL

    Fortran Matrix Help

    Hi,thanks for your help but i've tried out what you have suggested, but the same problem has still occured. It still showed 0 errors and 5 warnings when compiling. Adding the n=3 and lud =0 before the calling of my solver program resulted in a windows error box. Do u know what's the problem...
  5. AdYrL

    Fortran Matrix Help

    Hi,this is a program i have for solving a 3x3 matrix. The thing is, that it won't solve. I suspect that there's somthing wrong with my definition, it'll appear as 0 errors but like 7 warnings. Can anybody help me with this? program testing double precision A(3,3),B(3),Z(1000) real N,lud ...

Part and Inventory Search

Back
Top