equivalence (creff(1:1),ireff(1))
      equivalence (csigf(1:1),isigf(1))
      equivalence (cmatf(1:1),imatf(1))
      equivalence (cmath(1:1),imath(1))