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!

Register Log in
  • Congratulations strongm 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: *

  1. DaPhil

    Fortran + open mp

    Hi, first, thanks for the reply! @gummibaer: I did that, I didn't print anything. @FJacq: All loop indices are private automatically? Even in nested loops? I did not declare chiDiffArray and chiProbeArray as private (or at least I think I didn't). The statement !$omp parallel do...
  2. DaPhil

    Fortran + open mp

    Hi, I wrote the following little example: program main use omp_lib implicit none integer :: n, l, m, j, nDEQ, nk character*13 :: problemType real*8, allocatable, dimension(:) :: x0, xIn real*8, allocatable, dimension(:, :) :: chiProbeArray, chiDiffArray n = 3 m = 3 allocate(xIn(n), x0(n)...
  3. DaPhil

    Casting to quad precision

    Hi, I want to get a sqrt from an integer to quad precision. I tried to do this: integer : i_j real*16 :: r_hlp r_hlp = sqrt(i_j) but the compiler does not cast the integer to quad precision and therefor says that the types are not correct. How do I solve this? Casting to double precision via...
  4. DaPhil

    Show progress

    Hi, I want to print the progress of a subroutine on the command line. But the percentage should be updated in the same line. Right now, the actual percentage done is shown in a new line. How do I do that?
  5. DaPhil

    fill array in module

    Hi, following problem: I want to fill an array within a module. My Code: module myModule implicit none save integer :: l integer, parameter :: nt = 4524 real*8, parameter :: tMin = 0.0d0 real*8, parameter :: tMax = 6.0d0 real*8, parameter :: dt = (tMax - tMin) / (nt - 1)...
  6. DaPhil

    Saving to file

    Hello, I have the following problem. I want to save my data to a file. When I do it like that do l = 1, nt write(100, *) t(l), real(E(l)), abs(Pt(l)), abs(Pe(l)) end do I get a problem: fortran seems not to be able to write more than 3 coloumns in a file. That results in wrong format of my...

Part and Inventory Search

Back
Top