# mpirun -np 2 Rscript bp.write.demo.R
# load pbdADIOS lib
library(pbdADIOS, quiet = TRUE)
# create bp file
bp.create("bptest.bp")
# add attributes to the bp file
today <- Sys.Date()
bp.attr("date", format(today, format="%B %d %Y"))
bp.attr("README", "This is just a test.")
# define variables and write data
rank = comm.rank()
bp.var("T", (rank+1)*c(1:6))
a <- matrix((rank+1)*c(1:6), ncol = 3, nrow = 2)
bp.var("A", a)
b <- array((rank+1)*c(1:6), c(2, 1, 3))
bp.var("B", b)
bp.write()
for(i in 2:3) {
# append data
bp.var("T", i*(rank+1)*c(1:6))
a <- matrix(i*(rank+1)*c(1:6), ncol = 3, nrow = 2)
bp.var("A", a)
b <- array(i*(rank+1)*c(1:6), c(2, 1, 3))
bp.var("B", b)
bp.write()
}
# close adios
bp.flush()
finalize()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.