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 derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
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... -
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)... -
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... -
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? -
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)... -
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...
