Changeset 99


Ignore:
Timestamp:
08/30/11 17:52:50 (21 months ago)
Author:
mjv500
Message:

core_dens variable name update

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/src/nlcc_abinit.c

    r96 r99  
    109109  ierr = pspio_nlcc_alloc(nlcc, np); 
    110110 
    111   ff = (double *) malloc(sizeof(nlcc->cdens->f)) 
     111  ff = (double *) malloc(sizeof(nlcc->core_dens->f)) 
    112112 
    113113  if (np < 2) return PSPIO_EVALUE; 
    114114 
    115115  /// fill the nlcc core density 
    116   for (ir=0;  ir < nlcc->cdens->mesh->np; ir++){ 
    117     ierr = nlcc_ab4 (((double)ir)/((double)nlcc->cdens->mesh->np-1), fftmp); 
     116  for (ir=0;  ir < nlcc->core_dens->mesh->np; ir++){ 
     117    ierr = nlcc_ab4 (((double)ir)/((double)nlcc->core_dens->mesh->np-1), fftmp); 
    118118    if (ierr) return ierr; 
    119119    ff[ir]=fchrg * fftmp; 
Note: See TracChangeset for help on using the changeset viewer.