cmf_multiply_fields(grid1, grid2)
grid1 | |
---|---|
grid2 |
##---- Should be DIRECTLY executable !! ---- ##-- ==> Define data, use random, ##-- or do help(data=index) for the standard data sets. ## The function is currently defined as cmf_multiply_fields <- function(grid1, grid2) { grid <- list() grid$ngridx <- grid1$ngridx grid$ngridy <- grid1$ngridy grid$ngridz <- grid1$ngridz grid$gridx <- grid1$gridx grid$gridy <- grid1$gridy grid$gridz <- grid1$gridz grid$val <- grid1$val * grid2$val grid }