Ejemplos de CRV en C++ (Cpp)

Ejemplo n.º 1

Archivo: pr_08_1.c Proyecto: qnu/mdoch

void CorrectorStep ()
{
  real cr[] = {3.,10.,-1.}, cv[] = {7.,6.,-1.}, div = 24., wr, wv;
  int n;

  wr = Sqr (deltaT) / div;
  wv = deltaT / div;
  DO_MOL {
    CR (x);
    CRV (x);
    CR (y);
    CRV (y);
    CR (z);
    CRV (z);
  }
}

Ejemplo n.º 2

Archivo: duf_sel_cb_node.c Proyecto: mastarink/github-zocromas

/* 20151027.113952 */
static
SR( SCCBH, sel_cb2_node_at, duf_sccb_handle_t * sccbh, /* duf_stmnt_t * pstmt_arg, */ duf_str_cb2s_t str_cb2, duf_scanstage_t scanstage )
{
/*@ 1. go down + dbopenat */
  CRX( pdi_seq_node_plus, H_PDI );
  MAST_TRACE( scan_dir, 0, "* qn%llu/q%llu T%llu %s", CRX( pdi_seq_node, H_PDI ) /* H_PDI->seqq.node */ ,
              CRX( pdi_seq_gen, H_PDI ) /* H_PDI->seqq.gen */ ,
              H_TOTITEMS, H_SCCB->title );
#if 0
  if ( sccbh->progress_node_cb )
    ( sccbh->progress_node_cb ) ( sccbh );
#elif 0
  IF_CRV( CRX( sccbh_progress_node_cb, sccbh ), sccbh );
  ERRCLEAR( NO_FUNC );
#else
  {
    duf_sccbh_fun_t cb;

    cb = duf_sccbh_progress_node_cb( sccbh );
    if ( cb )
      cb( sccbh );
  }
#endif

  MAST_TRACE( seq, 0, "seqq.gen:%llu; seqq.node:%llu", CRX( pdi_seq_gen, H_PDI ) /* H_PDI->seq1.gen */ ,
              CRX( pdi_seq_node, H_PDI ) /* H_PDI->seqq.node */  );

  if ( str_cb2 )
  {
    MAST_TRACE( explain, 20, "=> str cb2" );
  /*@ 3. str_cb2 */
    CRV( ( str_cb2 ), sccbh, /* pstmt_arg, */ scanstage );

    ERRCLEAR( OPENAT_ENOENT );
    ERRCLEAR( STATAT_ENOENT );
  }

/*@ 4. go up */
  ER( SCCBH, sel_cb2_node_at, duf_sccb_handle_t * sccbh, /* duf_stmnt_t * pstmt_arg, */ duf_str_cb2s_t str_cb2, duf_scanstage_t scanstage );
}