I do not have enough time to make a program from your code, my idea is to strip code from subprograms and leave data declarations. Anyway, from a quick look:
1) There is a problem in
- Code: Select all
!id = omp_get_thread_num()
print *, id,'Hello World'
!$omp end parallel
(id would be undefined).
For example, If I inserd a "hello world" test code in front of "call homonic(r,ram,jar)", and stop. No problem, it works.
Without "stop", stack overflow!!
where is the stack overflow produced (in homonic, after the call, etc.)?