Skip to content

Added a first fortran example to prove the tool works for fortran code #3

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Draft
LonelyCat124 wants to merge 3 commits into
base: contributions
Choose a base branch
from
Draft

Added a first fortran example to prove the tool works for fortran code #3

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
c279257
Added a first fortran example to prove the tool works for fortran code
LonelyCat124 Jul 7, 2021
e8b48b4
Added a first fortran example to prove the tool works for fortran code
LonelyCat124 Jul 7, 2021
5539bb3
Merge branch 'Fortran_example' of https://github.com/LonelyCat124/ott…
LonelyCat124 Jul 9, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
11 changes: 9 additions & 2 deletions Makefile
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,7 +5,7 @@ $(info Compiler: $(CC) [$(shell which $(CC))])
INCLUDE = -Iinclude -I/opt/otf2/include -I/ddn/data/$(USER)/local/include
NOWARN = -Wno-unused-function -Wno-unused-variable
CFLAGS = -Wall -Werror $(NOWARN) $(INCLUDE)
LDFLAGS = -Llib/ -L/opt/otf2/lib -L/ddn/data/$(USER)/local/lib -Wl,-rpath=`pwd -P`/lib/,-rpath=/ddn/data/$(USER)/local/lib
LDFLAGS = -Llib/ -L/opt/otf2/lib -L/ddn/data/$(USER)/local/lib -Wl,-rpath=`pwd -P`/lib/,-rpath=/ddn/data/$(USER)/local/lib -L/path/to/llvm/lib
OTTER_DEFS =
DTYPE_DEFS = -DDA_LEN=$(OTTER_DEFAULT_ARRAY_LENGTH) -DDA_INC=$(OTTER_DEFAULT_ARRAY_INCREMENT)
TRACE_DEFS =
Expand Down Expand Up @@ -35,9 +35,11 @@ DTYPEHEAD = $(wildcard include/otter-datatypes/*.h) $(COMMON_H)
OMPSRC = $(wildcard src/otter-demo/*c)
OMPEXE = $(patsubst src/otter-demo/omp-%.c, omp-%, $(OMPSRC))
OMPSRC_CPP = $(wildcard src/otter-demo/*.cpp)
OMPSRC_F90 = $(wildcard src/otter-demo/*.F90)
OMPEXE_CPP = $(patsubst src/otter-demo/omp-%.cpp, omp-%, $(OMPSRC_CPP))
OMPEXE_F90 = $(patsubst src/otter-demo/omp-%.F90, omp-%, $(OMPSRC_F90))

BINS = $(OTTER) $(LIBDTYPE) $(LIBTRACE) $(OMPEXE) $(OMPEXE_CPP)
BINS = $(OTTER) $(LIBDTYPE) $(LIBTRACE) $(OMPEXE) $(OMPEXE_CPP) $(OMPEXE_F90)

.PHONY: all clean cleanfiles run

Expand All @@ -58,6 +60,11 @@ $(OMPEXE_CPP): $(OMPSRC_CPP)
$(CXX) $(CFLAGS) $(DEBUG) -fopenmp src/otter-demo/$@.cpp -o $@
@echo $@ links to `ldd $@ | grep "[lib|libi|libg]omp"`

$(OMPEXE_F90) : $(OMPSRC_F90)
@echo COMPILING: $@
$(F90) $(CFLAGS) $(DEBUG) -fopenmp src/otter-demo/$@.F90 -o $@ $(LDFLAGS) -lomp
@echo $@ links to `ldd $@ | grep "[lib|libi|libg]omp"`

### Otter as a dynamic tool to be loaded by the runtime
$(OTTER): $(OTTERSRC) $(OTTERHEAD) $(LIBTRACE)
@printf "COMPILING %-12s (debug=%s, OTTER_DEFS=%s)" $@ $(DEBUG_OTTER) $(OTTER_DEFS)
Expand Down
19 changes: 19 additions & 0 deletions src/otter-demo/omp-parallel-for-fortran.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,19 @@
#define THREADS 2
#define LENGTH 20

PROGRAM omp_parallel_for
USE OMP_LIB

integer, dimension(LENGTH) :: num
integer :: k
num(:) = 0

call omp_set_num_threads(THREADS)

!$OMP PARALLEL DO
do k=1, LENGTH
num(k) = omp_get_thread_num()
end do
!$OMP END PARALLEL DO

END PROGRAM