Example #1
0
 __static_call
 __inline_call void_type face_node (
     iptr_type *_fnod,
     iptr_type  _fpos,
     iptr_type  _from,
     iptr_type  _into
     )
 {
 /* index FROM 2-dim faces */
     if (_from == +2)
         {
 /* index INTO 2-dim faces */
     if (_into == +2)
         {
     faceind22(_fnod, _fpos);
         }
 /* index INTO 1-dim faces */
     else
     if (_into == +1)
         {
     faceind21(_fnod, _fpos);
         }
         }
 /* index FROM 1-dim faces */
     else
     if (_from == +1)
         {
 /* index INTO 1-dim faces */
     if (_into == +1)
         {
     faceind11(_fnod, _fpos);
         }
         }
 }
    __static_call
	__inline_call void_type face_node (
		iptr_type *_fnod,
		iptr_type  _fpos,
        iptr_type  _from,   // "from" dims
        iptr_type  _into    // "into" dims
		)
	{
    /* index FROM 3-dim faces */
        if (_from == +3)
            {       
    /* index INTO 3-dim faces */
        if (_into == +3)
            {
        faceind33(_fnod, _fpos);
            }
    /* index INTO 2-dim faces */
        else
        if (_into == +2)
            {
        faceind32(_fnod, _fpos);
            }
    /* index INTO 1-dim faces */
        else
        if (_into == +1)
            {
        faceind31(_fnod, _fpos);
            }
            }
    /* index FROM 2-dim faces */
        else
        if (_from == +2)
            {
    /* index INTO 2-dim faces */
        if (_into == +2)
            {
        faceind22(_fnod, _fpos);
            }
    /* index INTO 1-dim faces */
        else
        if (_into == +1)
            {
        faceind21(_fnod, _fpos);
            }
            }
    /* index FROM 1-dim faces */
        else
        if (_from == +1)
            {
    /* index INTO 1-dim faces */
        if (_into == +1)
            {
        faceind11(_fnod, _fpos);
            }
            }
    }