; docformat = 'rst' ;+ ; Example of using a common block that is defined in a single routine. ;- ;+ ; Creates the common block, fills in values for the variables in the common ; block, and calls the helper routine. ;- pro mg_common_example1 compile_opt strictarr common mg_common_example1_block, a, b, c a = 1 b = 2 c = 3 mg_common_example1_helper end