integer MPI_COMM_NULL_DUP_FN, MPI_COMM_DUP_FN
parameter(MPI_COMM_NULL_DUP_FN =0)
parameter(MPI_COMM_DUP_FN =0)
+ integer MPI_WIN_NULL_COPY_FN, MPI_WIN_NULL_DELETE_FN
+ parameter(MPI_WIN_NULL_COPY_FN =0)
+ parameter(MPI_WIN_NULL_DELETE_FN =0)
+ integer MPI_WIN_DUP_FN
+ parameter(MPI_WIN_DUP_FN =0)
integer MPI_ROOT, MPI_COMM_TYPE_SHARED
parameter(MPI_ROOT=0)
parameter(MPI_GROUP_EMPTY=-2)
parameter(MPI_WIN_NULL=-1)
+ integer MPI_WIN_BASE, MPI_WIN_SIZE, MPI_WIN_DISP_UNIT
+
+ parameter(MPI_WIN_BASE=-1)
+ parameter(MPI_WIN_SIZE=-2)
+ parameter(MPI_WIN_DISP_UNIT=-3)
+
! These IDs have to be unique, consecutive
! and ordered as in smpi_f77.cpp.
parameter(MPI_COMM_WORLD=0)
add_executable(winaccf winaccf.f)
# add_executable(winerrf winerrf.f)
add_executable(winfencef winfencef.f)
-# add_executable(wingroupf wingroupf.f)
+ add_executable(wingroupf wingroupf.f)
# add_executable(baseattrwinf baseattrwinf.f)
# add_executable(winattr2f winattr2f.f)
# add_executable(winattrf winattrf.f)
target_link_libraries(winaccf simgrid mtest_f77)
#target_link_libraries(winerrf simgrid mtest_f77)
target_link_libraries(winfencef simgrid mtest_f77)
-#target_link_libraries(wingroupf simgrid mtest_f77)
+target_link_libraries(wingroupf simgrid mtest_f77)
#target_link_libraries(baseattrwinf simgrid mtest_f77)
target_link_libraries(c2f2cwinf simgrid mtest_f77)
#target_link_libraries(winattr2f simgrid mtest_f77)
${CMAKE_CURRENT_SOURCE_DIR}/winscale1f.f
${CMAKE_CURRENT_SOURCE_DIR}/winscale2f.f
${CMAKE_CURRENT_SOURCE_DIR}/addsize.h
+ ${CMAKE_CURRENT_SOURCE_DIR}/attraints.h
PARENT_SCOPE)
set(txt_files
${txt_files}
--- /dev/null
+C -*- Mode: Fortran; -*-
+C
+C (C) 2003 by Argonne National Laboratory.
+C See COPYRIGHT in top-level directory.
+C
+ integer extrastate, valin, valout, val
#Needs win error handling
#winerrf 1
winnamef 1
-#Needs win get group
-#wingroupf 4
+wingroupf 4
winaccf 4 needs_privatization=1
-#Needs mpi_win_f2c
c2f2cwinf 1
-#Needs attr
#baseattrwinf 1
#winattrf 1
#winattr2f 1
add_executable(winaccf90 winaccf90.f90)
# add_executable(winerrf90 winerrf90.f90)
add_executable(winfencef90 winfencef90.f90)
-# add_executable(wingroupf90 wingroupf90.f90)
+ add_executable(wingroupf90 wingroupf90.f90)
# add_executable(baseattrwinf90 baseattrwinf90.f90)
# add_executable(winattr2f90 winattr2f90.f90)
# add_executable(winattrf90 winattrf90.f90)
target_link_libraries(winaccf90 simgrid mtest_f90)
#target_link_libraries(winerrf90 simgrid mtest_f90)
target_link_libraries(winfencef90 simgrid mtest_f90)
-#target_link_libraries(wingroupf90 simgrid mtest_f90)
+target_link_libraries(wingroupf90 simgrid mtest_f90)
#target_link_libraries(baseattrwinf90 simgrid mtest_f90)
target_link_libraries(c2f2cwinf90 simgrid mtest_f90)
#target_link_libraries(winattr2f90 simgrid mtest_f90)
#winscale2f90 4
#winerrf90 1
winnamef90 1
-#wingroupf90 4
+wingroupf90 4
winaccf90 4 needs_privatization=1
c2f2cwinf90 1
#baseattrwinf90 1