FLAC 流变程序

#include “usercvisc.h“
#include 

static const unsigned long mShearNow    = 0x01;   /* state logic */
static const unsigned long mTensionNow  = 0x02;
static const unsigned long mShearPast   = 0x04;
static const unsigned long mTensionPast = 0x08;
static const double dPi = 3.141592653589793238462643383279502884197169399;
static const double degrad = dPi / 180.0;        
static const double dC1d3 = 1.0 / 3.0;

//static int iMerr ;
//static int iNerr iErr;
// MOO 08/02/05 -- These error codes are set but never read.  I‘m commenting them out.

static UserCViscModel usercviscmodel（true）;


UserCViscModel::UserCViscModel（bool bRegister）
             :ConstitutiveModel（mnUserCViscModelbRegister）  dBulk（0.0）
              dKshear（0.0） dMshear（0.0） dKviscosity（0.0）