fortran90

I am trying to implement an array of pointers, so that I can loop over the elements. However I am not sure how to do this correctly: TYPE(domain),POINTER :: d01,d02,d03 TYPE(domain),DIMENSION(:),POINTER :: dom ... dom(1) => d01 dom(2) => d02 dom(3) => d03 ... and then: ... IF(ASSOCIATED(dom(2),d02))THEN ... The compiler (pgf90 10.6-0 64-bit target on x86-64 Linux -tp istanbul-64) gives me this error message: PGF90-S-0074-Illegal number or type of arguments to associated - keyword argument pointer (test_ptr.f90: 10) 0 inform, 0 warnings, 1 severes, 0 fatal for MAIN As far as I understand, there

This question already has an answer here: Convert integers to strings to create output filenames at run time 9 answers I am using Fortran to do calculation on huge data set which was split into many files. The names of the files are: maltoLyo12per-reimage-set1.traj maltoLyo12per-reimage-set2.traj maltoLyo12per-reimage-set3.traj The code I wrote to do the calculation is as below: fileLoop: do j = 31, 34 OPEN(unit=31,status='old',file=fileplace//'maltoLyo12per-reimage-set1.traj') OPEN(unit=32,status='old',file=fileplace//'maltoLyo12per-reimage-set2.traj') OPEN(unit=33,status='old',file=fileplace

What does this Fortran code mean: IF (J1-3) 20, 20, 21 21 J1 = J1 - 3 20 IF (J2-3) 22, 22, 23 23 J2 = J2 - 3 22 CONTINUE I've seen in old project and I don't have any idea what this IF with numbers (labels) means. This is an arithmetic if statement from FORTRAN 77. Adapted from the FORTRAN 77 specification (emphasis mine): The form of an arithmetic IF statement is: IF (e) s1 , s2 , s2 where: e is an integer, real, or double precision expression s1 , s2 , and s3 are each the statement label of an executable statement that appears in the same program unit as the arithmetic IF statement. The same

I have the following code: Program function_as_an_array implicit none integer:: i integer, parameter:: N=10 real*8:: x(N),y(N),f(N) do i=1,N x(i)=float(i) end do call func(f,N,x) open(unit=20, file='test.dat') do i=1,N y(i)=f(i) write(20,*) x(i),y(i) end do close(20) Stop End Program function_as_an_array Subroutine func(f,N,x) implicit none integer i,N real*8:: x(N),f(N) do i=1,N f(i)=x(i)**2 end do end Subroutine func I want to make the program indeed be meant for "function as an arrray", i.e. I would like to replace the Subroutine func by a function f and get the same result (In the main

I have this function, depicted below. It passes in two vectors with three values each, and should pass out one vector with three values as well. I call the function like this: Fr = Flux(W(:,i),W(:,i+1)) What I have realized through messing around with the code, trying pure functions, and modules, and researching the error statement (that I will include at the bottom), is that fortran is reading my function Flux, and thinks that the input vectors are an attempt to call an entry from the array. That is my best guess as to what is going on. I asked around the lab and most people suggested using

This question already has an answer here: Module calling an external procedure with implicit interface 1 answer I am completely new to Fortran 90 and I am trying to understand how to pass an array to a function. I looked on the web and I could not find any clear and simple enough example, so I decided to post here. I would like the function be able to work on an array of any length (the length of the array should not be one of the parameters of the functions). I tried to write a simple example of a function that returns the sum of the elements of an array: function mysum(arr) implicit none