%*******************************************************************
%**	last version by YF 6/15/1999; allows for multiple sources **
%**     Okada module is taken from  NEWTEST by mep                **
%**     Ripped off from CONPROC by mOs                            **
%**     designed to do forward modeling of deformation using      **
%**     various deformation sources                               **
%**                                                               **
%  sic:                                                           **
%  {                                                              **
%   banner                                                        **
%   new:                                                          **
%    {                                                            **
%    defaults1                                                    **
%    geodesy                                                      **
%    choice:                                                      **
%     defaults2                                                   **
%     -> run_choice:                                              **
%              {                                                  **
%              medium1                                            **
%              ...                                                **
%              }                                                  **
%              getsrctype -> stack:                               **
%                             {                                   **
%                             get_mogi -> generic                 **
%                             get_penny -> generic                **
%                             get_yang -> generic                 **
%                             get_disl -> generic                 **
%                             ...                                 **
%                             }                                   **
%              plt_pic                                            **
%              -> new                                             **
%    }                                                            **
%  }                                                              **
%                                                                 **
%  generic:                                                       **
%  {                                                              **
%   calc_mogi                                                     **
%   calc_penny                                                    **
%   calc_yang:                                                    **
%   {                                                             **
%    yang_sphc                                                    **
%    f_yang                                                       **
%   }                                                             **
%   calc_okada:                                                   **
%   {                                                             **
%    fBi                                                          **
%   }                                                             **
%  }                                                              **
%*******************************************************************

clear
%*****SETUP*****
precision   = 'real*4';
machinetype = 'native';
global idum
banner
new
