| immutable class F_DOUBLE_COMPLEX < $F_NUMBER{F_DOUBLE_COMPLEX}, $F_SCALAR |
|---|
| **** | FORTRAN DOUBLE COMPLEX type (built in type) |
| $F_SCALAR | $IS_EQ | $STR | $F_NUMBER{_} | $NIL | $IS_NIL |
| cpxd:CPXD |
|---|
| **** | A Sather CPX version of self |
| create(x:CPXD):SAME |
|---|
| create(re:FLTD, im:FLTD):SAME |
|---|
| create(re:F_DOUBLE, im:F_DOUBLE):SAME |
|---|
| create(fc:F_DOUBLE_COMPLEX):SAME |
|---|
| div(fc:SAME):SAME |
|---|
| **** | The ratio of self and `c'. |
| im(x:F_DOUBLE) |
|---|
| im:F_DOUBLE |
|---|
| is_eq(c: SAME): BOOL |
|---|
| is_nil:BOOL |
|---|
| minus(c:SAME):SAME |
|---|
| **** | The difference of self and `c'. |
| nil:SAME |
|---|
| **** | let Sather handle this (we are confused by the philosophical impilations of nil vs void vs unitialized vs zero |
| plus(c:SAME):SAME |
|---|
| re(x:F_DOUBLE) |
|---|
| re:F_DOUBLE |
|---|
| str:STR |
|---|
| times(c:SAME):SAME |
|---|
| zero:SAME |
|---|