estimate_coef_memory()

MEMORY estimate_coef_memory

(

)

                              {
  MEMORY ESTIMATED_COEF_MEMORY = 0L;

  if (modsolinfo->pre_calculate_coefs) {
    ESTIMATED_COEF_MEMORY += TOMEMORY(MEMsizeof(struct bodycoefs_struct));
    ESTIMATED_COEF_MEMORY +=
        TOMEMORY((2L*TOMEMORY(modgeominfo->ncntr+modgeominfo->nchief)*TOMEMORY(modgeominfo->ncntr)*MEMsizeof(DOUBLE))); // B Body Coefs
    ESTIMATED_COEF_MEMORY +=
        TOMEMORY((4L*(TOMEMORY(modgeominfo->ncntr)+TOMEMORY(modgeominfo->nchief))*TOMEMORY(modgeominfo->ncntr)*MEMsizeof(DOUBLE))); // C Body Coefs
    ESTIMATED_COEF_MEMORY +=
        TOMEMORY((TOMEMORY(modgeominfo->ncntr+modgeominfo->nchief)*MEMsizeof(DOUBLE))); // temporary vector
    ESTIMATED_COEF_MEMORY += TOMEMORY(MEMsizeof(struct micscoefs_struct));
    ESTIMATED_COEF_MEMORY +=
        TOMEMORY((2L*TOMEMORY(modgeominfo->nmics)*TOMEMORY(modgeominfo->nelmb)*MEMsizeof(DOUBLE))); // 2 mics B coefficients
    ESTIMATED_COEF_MEMORY +=
        TOMEMORY((3L*TOMEMORY(modgeominfo->nmics)*TOMEMORY(modgeominfo->nelmb)*MEMsizeof(DOUBLE))); // 3 mics C coefficients
ESTIMATED_COEF_MEMORY += TOMEMORY(((TOMEMORY(modgeominfo->ncntr)+TOMEMORY(modgeominfo->nchief))*TOMEMORY(modgeominfo->ncntr)*MEMsizeof(COMPLEX))); // matB
  ESTIMATED_COEF_MEMORY+= TOMEMORY(((TOMEMORY(modgeominfo->ncntr)+TOMEMORY(modgeominfo->nchief))*TOMEMORY(modgeominfo->ncntr)*MEMsizeof(COMPLEX)));// matBH
  ESTIMATED_COEF_MEMORY+= TOMEMORY(((TOMEMORY(modgeominfo->ncntr)+TOMEMORY(modgeominfo->nchief))*TOMEMORY(modgeominfo->ncntr)*MEMsizeof(COMPLEX)));// matBK
}

  return ESTIMATED_COEF_MEMORY;
}