ornladios · vicentebolea · Aug 19, 2022 · Jul 23, 2022 · Jul 23, 2022
diff --git a/examples/basics/globalArray/globalArray_write.cpp b/examples/basics/globalArray/globalArray_write.cpp
@@ -43,6 +43,8 @@ int main(int argc, char *argv[])
     int rank = 0, nproc = 1;
 #if ADIOS2_USE_MPI
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
     MPI_Comm_size(MPI_COMM_WORLD, &nproc);

diff --git a/examples/basics/joinedArray/joinedArray_write.cpp b/examples/basics/joinedArray/joinedArray_write.cpp
@@ -43,6 +43,8 @@ int main(int argc, char *argv[])
 #if ADIOS2_USE_MPI
     int nproc = 1;
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
     MPI_Comm_size(MPI_COMM_WORLD, &nproc);

diff --git a/examples/basics/localArray/localArray_write.cpp b/examples/basics/localArray/localArray_write.cpp
@@ -48,6 +48,8 @@ int main(int argc, char *argv[])
 #if ADIOS2_USE_MPI
     int nproc = 1;
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
     MPI_Comm_size(MPI_COMM_WORLD, &nproc);

diff --git a/examples/basics/values/values_write.cpp b/examples/basics/values/values_write.cpp
@@ -31,6 +31,8 @@ int main(int argc, char *argv[])
     int rank = 0, nproc = 1;
 #if ADIOS2_USE_MPI
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
     MPI_Comm_size(MPI_COMM_WORLD, &nproc);

diff --git a/examples/experimental/runtimeconfig/hello/helloBPWriterXML.cpp b/examples/experimental/runtimeconfig/hello/helloBPWriterXML.cpp
@@ -28,6 +28,8 @@
 int main(int argc, char *argv[])
 {
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     int rank, size;
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);

diff --git a/examples/heatTransfer/read/heatRead.cpp b/examples/heatTransfer/read/heatRead.cpp
@@ -70,6 +70,7 @@ int main(int argc, char *argv[])
         threadSupportLevel = MPI_THREAD_MULTIPLE;
     }
 
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, threadSupportLevel, &provided);
 
     /* When writer and reader is launched together with a single mpirun command,

diff --git a/examples/heatTransfer/write/main.cpp b/examples/heatTransfer/write/main.cpp
@@ -47,6 +47,7 @@ int main(int argc, char *argv[])
         threadSupportLevel = MPI_THREAD_MULTIPLE;
     }
 
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, threadSupportLevel, &provided);
 
     /* When writer and reader is launched together with a single mpirun command,

diff --git a/examples/hello/bpAttributeWriter/helloBPAttributeWriter.cpp b/examples/hello/bpAttributeWriter/helloBPAttributeWriter.cpp
@@ -21,6 +21,8 @@
 int main(int argc, char *argv[])
 {
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     int rank, size;
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);

diff --git a/examples/hello/bpFWriteCRead/CppReader.cpp b/examples/hello/bpFWriteCRead/CppReader.cpp
@@ -16,6 +16,8 @@
 int main(int argc, char *argv[])
 {
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     int rank, size;
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);

diff --git a/examples/hello/bpFWriteCRead/CppWriter.cpp b/examples/hello/bpFWriteCRead/CppWriter.cpp
@@ -16,6 +16,8 @@
 int main(int argc, char *argv[])
 {
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     int rank, size;
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);

diff --git a/examples/hello/bpFlushWriter/helloBPFlushWriter.cpp b/examples/hello/bpFlushWriter/helloBPFlushWriter.cpp
@@ -21,6 +21,8 @@
 int main(int argc, char *argv[])
 {
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     int rank, size;
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);

diff --git a/examples/hello/bpReader/helloBPReader.cpp b/examples/hello/bpReader/helloBPReader.cpp
@@ -22,6 +22,8 @@
 int main(int argc, char *argv[])
 {
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     int rank, size;
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);

diff --git a/examples/hello/bpReader/helloBPReaderHeatMap2D.cpp b/examples/hello/bpReader/helloBPReaderHeatMap2D.cpp
@@ -31,6 +31,8 @@
 int main(int argc, char *argv[])
 {
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     int rank, size;
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);

diff --git a/examples/hello/bpReader/helloBPReaderHeatMap3D.cpp b/examples/hello/bpReader/helloBPReaderHeatMap3D.cpp
@@ -35,6 +35,8 @@
 int main(int argc, char *argv[])
 {
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     int rank, size;
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);

diff --git a/examples/hello/bpTimeWriter/helloBPTimeWriter.cpp b/examples/hello/bpTimeWriter/helloBPTimeWriter.cpp
@@ -22,6 +22,8 @@
 int main(int argc, char *argv[])
 {
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     int rank, size;
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);

diff --git a/examples/hello/bpWriter/helloBPPutDeferred.cpp b/examples/hello/bpWriter/helloBPPutDeferred.cpp
@@ -36,6 +36,8 @@ int main(int argc, char *argv[])
 
 #if ADIOS2_USE_MPI
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
     MPI_Comm_size(MPI_COMM_WORLD, &size);

diff --git a/examples/hello/bpWriter/helloBPSZ.cpp b/examples/hello/bpWriter/helloBPSZ.cpp
@@ -35,6 +35,8 @@ int main(int argc, char *argv[])
 
 #if ADIOS2_USE_MPI
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
     MPI_Comm_size(MPI_COMM_WORLD, &size);

diff --git a/examples/hello/bpWriter/helloBPSubStreams.cpp b/examples/hello/bpWriter/helloBPSubStreams.cpp
@@ -23,6 +23,8 @@ int main(int argc, char *argv[])
     int rank, size;
 #if ADIOS2_USE_MPI
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
     MPI_Comm_size(MPI_COMM_WORLD, &size);

diff --git a/examples/hello/bpWriter/helloBPWriter.c b/examples/hello/bpWriter/helloBPWriter.c
@@ -40,6 +40,8 @@ int main(int argc, char *argv[])
 
 #if ADIOS2_USE_MPI
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
     MPI_Comm_size(MPI_COMM_WORLD, &size);

diff --git a/examples/hello/bpWriter/helloBPWriter.cpp b/examples/hello/bpWriter/helloBPWriter.cpp
@@ -24,6 +24,8 @@ int main(int argc, char *argv[])
     int rank, size;
 #if ADIOS2_USE_MPI
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
     MPI_Comm_size(MPI_COMM_WORLD, &size);

diff --git a/examples/hello/datamanReader/helloDataManReader.cpp b/examples/hello/datamanReader/helloDataManReader.cpp
@@ -33,6 +33,8 @@ int main(int argc, char *argv[])
 {
     // initialize MPI
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     MPI_Comm_rank(MPI_COMM_WORLD, &mpiRank);
     MPI_Comm_size(MPI_COMM_WORLD, &mpiSize);

diff --git a/examples/hello/datamanWriter/helloDataManWriter.cpp b/examples/hello/datamanWriter/helloDataManWriter.cpp
@@ -52,6 +52,8 @@ int main(int argc, char *argv[])
 {
     // initialize MPI
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     MPI_Comm_rank(MPI_COMM_WORLD, &mpiRank);
     MPI_Comm_size(MPI_COMM_WORLD, &mpiSize);

diff --git a/examples/hello/dataspacesReader/helloDataSpacesReader.cpp b/examples/hello/dataspacesReader/helloDataSpacesReader.cpp
@@ -29,6 +29,8 @@ int main(int argc, char *argv[])
 
 #if ADIOS2_USE_MPI
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
     MPI_Comm_size(MPI_COMM_WORLD, &size);

diff --git a/examples/hello/dataspacesWriter/helloDataSpacesWriter.cpp b/examples/hello/dataspacesWriter/helloDataSpacesWriter.cpp
@@ -26,6 +26,8 @@ int main(int argc, char *argv[])
 
 #if ADIOS2_USE_MPI
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
     MPI_Comm_size(MPI_COMM_WORLD, &size);

diff --git a/examples/hello/hdf5Reader/helloHDF5Reader.cpp b/examples/hello/hdf5Reader/helloHDF5Reader.cpp
@@ -67,6 +67,8 @@ void ReadData(adios2::IO h5IO, adios2::Engine &h5Reader,
 int main(int argc, char *argv[])
 {
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     int rank, size;
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);

diff --git a/examples/hello/hdf5Writer/helloHDF5Writer.cpp b/examples/hello/hdf5Writer/helloHDF5Writer.cpp
@@ -20,6 +20,8 @@
 int main(int argc, char *argv[])
 {
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     int rank, size;
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);

diff --git a/examples/hello/inlineReaderWriter/helloInlineReaderWriter.cpp b/examples/hello/inlineReaderWriter/helloInlineReaderWriter.cpp
@@ -84,6 +84,8 @@ int main(int argc, char *argv[])
     int rank = 0, size = 1;
 #if ADIOS2_USE_MPI
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
     MPI_Comm_size(MPI_COMM_WORLD, &size);

diff --git a/examples/hello/skeleton/helloSkeletonReader.cpp b/examples/hello/skeleton/helloSkeletonReader.cpp
@@ -17,6 +17,8 @@ int main(int argc, char *argv[])
     int wrank = 0, wnproc = 1;
     MPI_Comm mpiReaderComm;
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     MPI_Comm_rank(MPI_COMM_WORLD, &wrank);
     MPI_Comm_size(MPI_COMM_WORLD, &wnproc);

diff --git a/examples/hello/skeleton/helloSkeletonWriter.cpp b/examples/hello/skeleton/helloSkeletonWriter.cpp
@@ -25,6 +25,8 @@ int main(int argc, char *argv[])
     int wrank = 0, wnproc = 1;
     MPI_Comm mpiWriterComm;
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     MPI_Comm_rank(MPI_COMM_WORLD, &wrank);
     MPI_Comm_size(MPI_COMM_WORLD, &wnproc);

diff --git a/examples/hello/sstReader/helloSstReader.cpp b/examples/hello/sstReader/helloSstReader.cpp
@@ -28,6 +28,8 @@ int main(int argc, char *argv[])
 
 #if ADIOS2_USE_MPI
     int provide;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provide);
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
     MPI_Comm_size(MPI_COMM_WORLD, &size);

diff --git a/examples/hello/sstWriter/helloSstWriter.cpp b/examples/hello/sstWriter/helloSstWriter.cpp
@@ -25,6 +25,8 @@ int main(int argc, char *argv[])
 
 #if ADIOS2_USE_MPI
     int provide;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provide);
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
     MPI_Comm_size(MPI_COMM_WORLD, &size);

diff --git a/examples/query/test.cpp b/examples/query/test.cpp
@@ -15,6 +15,8 @@
 int main(int argc, char *argv[])
 {
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     int rank, size;
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);

diff --git a/examples/useCases/insituGlobalArrays/insituGlobalArraysReaderNxN.cpp b/examples/useCases/insituGlobalArrays/insituGlobalArraysReaderNxN.cpp
@@ -215,6 +215,8 @@ int main(int argc, char *argv[])
     int rank = 0, nproc = 1;
 #if ADIOS2_USE_MPI
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     int wrank, wnproc;
     MPI_Comm_rank(MPI_COMM_WORLD, &wrank);

diff --git a/examples/useCases/insituGlobalArrays/insituGlobalArraysWriter.cpp b/examples/useCases/insituGlobalArrays/insituGlobalArraysWriter.cpp
@@ -90,6 +90,8 @@ int main(int argc, char *argv[])
     int rank = 0, nproc = 1;
 #if ADIOS2_USE_MPI
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(&argc, &argv, MPI_THREAD_MULTIPLE, &provided);
     int wrank, wnproc;
     MPI_Comm_rank(MPI_COMM_WORLD, &wrank);

diff --git a/testing/adios2/bindings/C/TestBPAvailableVariablesAttribites.cpp b/testing/adios2/bindings/C/TestBPAvailableVariablesAttribites.cpp
@@ -269,6 +269,8 @@ int main(int argc, char **argv)
 {
 #if ADIOS2_USE_MPI
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(nullptr, nullptr, MPI_THREAD_MULTIPLE, &provided);
 #endif
 

diff --git a/testing/adios2/bindings/C/TestBPWriteAggregateReadLocal.cpp b/testing/adios2/bindings/C/TestBPWriteAggregateReadLocal.cpp
@@ -369,6 +369,8 @@ int main(int argc, char **argv)
 {
 #if ADIOS2_USE_MPI
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(nullptr, nullptr, MPI_THREAD_MULTIPLE, &provided);
 #endif
 

diff --git a/testing/adios2/bindings/C/TestBPWriteReadMultiblock.cpp b/testing/adios2/bindings/C/TestBPWriteReadMultiblock.cpp
@@ -298,6 +298,8 @@ int main(int argc, char **argv)
 {
 #if ADIOS2_USE_MPI
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(nullptr, nullptr, MPI_THREAD_MULTIPLE, &provided);
 #endif
 

diff --git a/testing/adios2/bindings/C/TestBPWriteTypes.cpp b/testing/adios2/bindings/C/TestBPWriteTypes.cpp
@@ -520,6 +520,8 @@ int main(int argc, char **argv)
 {
 #if ADIOS2_USE_MPI
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(nullptr, nullptr, MPI_THREAD_MULTIPLE, &provided);
 #endif
 

diff --git a/testing/adios2/bindings/C/TestNullWriteRead.cpp b/testing/adios2/bindings/C/TestNullWriteRead.cpp
@@ -116,6 +116,8 @@ int main(int argc, char **argv)
 {
 #if ADIOS2_USE_MPI
     int provided;
+
+    // MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     MPI_Init_thread(nullptr, nullptr, MPI_THREAD_MULTIPLE, &provided);
 #endif
 

diff --git a/testing/adios2/bindings/fortran/TestAdios2BindingsFortranIO.F90 b/testing/adios2/bindings/fortran/TestAdios2BindingsFortranIO.F90
@@ -152,6 +152,8 @@ program main
   external testing_adios_io_engine_default
 
   INTEGER provided
+
+  ! MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
   call MPI_Init_thread(MPI_THREAD_MULTIPLE, provided, ierr)
 
   call testing_adios_io_engine()

diff --git a/testing/adios2/bindings/fortran/TestBPReadGlobalsByName.F90 b/testing/adios2/bindings/fortran/TestBPReadGlobalsByName.F90
@@ -15,6 +15,8 @@ program TestBPReadGlobalsByName
 
     ! Launch MPI
     INTEGER provided
+
+    ! MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     call MPI_Init_thread(MPI_THREAD_MULTIPLE, provided, ierr)
     call MPI_Comm_rank(MPI_COMM_WORLD, irank, ierr)
     call MPI_Comm_size(MPI_COMM_WORLD, isize, ierr)

diff --git a/testing/adios2/bindings/fortran/TestBPWriteReadAttributes.F90 b/testing/adios2/bindings/fortran/TestBPWriteReadAttributes.F90
@@ -33,6 +33,8 @@ program TestBPWriteAttributes
 
     ! Launch MPI
     INTEGER provided
+
+    ! MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
     call MPI_Init_thread(MPI_THREAD_MULTIPLE, provided, ierr)
 
     ! Create adios handler passing the communicator, debug mode and error flag

diff --git a/testing/adios2/bindings/fortran/TestBPWriteTypes.F90 b/testing/adios2/bindings/fortran/TestBPWriteTypes.F90
@@ -32,6 +32,8 @@ program TestBPWriteTypes
 #if ADIOS2_USE_MPI
      ! Launch MPI
      INTEGER provided
+
+     ! MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
      call MPI_Init_thread(MPI_THREAD_MULTIPLE, provided, ierr)
      call MPI_Comm_rank(MPI_COMM_WORLD, irank, ierr)
      call MPI_Comm_size(MPI_COMM_WORLD, isize, ierr)

diff --git a/testing/adios2/bindings/fortran/TestBPWriteTypesByName.F90 b/testing/adios2/bindings/fortran/TestBPWriteTypesByName.F90
@@ -18,6 +18,8 @@ program TestBPWriteTypes
 
      ! Launch MPI
      INTEGER provided
+
+     ! MPI_THREAD_MULTIPLE is only required if you enable the SST MPI_DP
      call MPI_Init_thread(MPI_THREAD_MULTIPLE, provided, ierr)
      call MPI_Comm_rank(MPI_COMM_WORLD, irank, ierr)
      call MPI_Comm_size(MPI_COMM_WORLD, isize, ierr)