######################################## ######################################## # decrease number of individuals ######################################## set save_cwd = `execute("oppwf")` # note where we were opcf /obj # move into "object" directory for i = 1 to `0-$change` set which = `$pop_size-$i` oprm geno$which end # for i loop setenv pop_size = $new_size varchange # tell everything to update opcf $save_cwd # back to where we were before we got here ######################################## ########################################