#module OptimizationParameters
# implicit none
nmax <- 10 # integer, parameter ::
cond <- rep(NA,nmax) # real, dimension(1:nmax) :: cond ! scaling factors
#end module OptimizationParameters
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.