NAME: SPINMODEL_GET_PTR.PRO PURPOSE: Returns a pointer to the spin model, specified by a single letter probe designation ('a' through 'f'). This is to avoid having to define the spinmodel common block all over the place. CATEGORY: TDAS CALLING SEQUENCE: model_ptr=spinmodel_get_ptr('a') INPUTS: probe: A scalar character, one of 'a' through 'f', specifying which model pointer to return. OUTPUTS: model_ptr: The return value is a pointer to the specified spin model, suitable for passing to the other spinmodel manipulation routines. KEYWORDS: None. PROCEDURE: Test probe argument for validity; return appropriate value from the spinmodel_common block. EXAMPLE: model_ptr=spinmodel_get_ptr('a') spinmodel_test,model_ptr Written by: Jim Lewis (jwl@ssl.berkeley.edu) Change Date: 2007-10-08