MCPcopy Create free account
hub / github.com/clMathLibraries/clBLAS / handleCONJUGATE

Method handleCONJUGATE

src/library/blas/gens/kprintf.cpp:1574–1599  ·  view source on GitHub ↗

Source from the content-addressed store, hash-verified

1572}
1573
1574void kprintf::handleCONJUGATE(char **_src, char **_dst)
1575{
1576 // %CONJUGATE( doConj, loadedA );
1577 // loadedA = ((doConj == 1)? (loadedA.odd = -loadedA.odd, loadedA) : loadedA);
1578
1579 int numCharsWritten = 0;
1580 char id1[256], id2[256];
1581 char * ptr;
1582 char *src = *_src;
1583 char *dst = *_dst;
1584
1585 ptr = mystrtok( src, "(,)");
1586 ptr = mystrtok( NULL, "(,)"); // Get first ID
1587 strcpy( id1, ptr);
1588 ptr = mystrtok( NULL, "(,)"); // Get second ID
1589 strcpy( id2, ptr);
1590 *_src = ptr + strlen(ptr) + 1;
1591
1592 if ( s_or_v == VECTOR)
1593 {
1594 numCharsWritten = sprintf(dst,"%s = ((%s == 1)? ( %s.odd = -%s.odd, %s) : %s)", id2, id1, id2, id2, id2, id2);
1595 dst += numCharsWritten;
1596 }
1597
1598 *_dst = dst;
1599}
1600
1601void kprintf::handleClearImaginary(char **_src, char **_dst)
1602{

Callers

nothing calls this directly

Calls

no outgoing calls

Tested by

no test coverage detected