Hi Mikron,
In "numbers_data(i,data_set)%nd_part(idata)" for a given "i" and a given "data_set", we have "idata=1,...,npoints(data_set)", where "npoints(data_set)" is independent of "i" (i.e. the same for all values of "i").
I think you were asking whether it is possible for e.g...
Hi TheoMoore,
The "1" means just to continue onto the next line, i.e.
DIMENSION WEW(2710,2710),LV(2710),W(2710)
1,ETA(2710)
means the same as
DIMENSION WEW(2710,2710),LV(2710),W(2710),ETA(2710)
The "/FUN/" is the name of the common block. So if you wanted to access the variables...
Unfortunately the required size of nd_part(:) varies - if I just chose the largest size, my code would be too big. Also, your method would work for 2 data sets, but what an arbitrary number of data sets and / or not necessarily 3 and 9 points in each set?
I'm wondering if someone hasn't written...
Hi Mikron,
Thanks for continuing to help. The problem in these cases you just gave is that the code becomes slow. I have to avoid copying explicit numbers (in my actual code it is not 5 numbers but more like 1 million!) which is why I wanted to use pointers. As far as I can tell, in all cases...
Hi Mikron,
Thanks again, for taking the time to write a detailed reply.
I see exactly what you mean, and I think your method is probably my only option.
The problem is, the part of my code that uses "numbers" is some numerical calculation which doesn't care or know about the data, including...
Firstly, thanks mikrom for responding so quickly.
Secondly, e.g. "allocate(numbers_data(3,2)%nd_part(9))" means to allocate 9 components, i.e. "numbers_data(3,2)%nd_part(i)" is allocated with "i=1,...,9". The "%" means to take the element "nd_part" (which is in fact the only element of a...
Hi there. I am trying to modularize my code as it is getting complicated. However, the code is causing me problems. Below is a simplified version of the problem. It would be great if anyone knows a solution or even a completely alternative approach. Thanks in advance even just for comments!
I...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.