Commit 2c15e551 authored by agebhard's avatar agebhard

indentation

parent 740d9cb4
......@@ -54,69 +54,69 @@ void bk_grid(double *xsw,
#ifdef TRANSIENT
covmat=Calloc((size_t)(*n)*(*n),double);
c0vec=Calloc((size_t)(*n),double);
muwrk=Calloc((size_t)((*ntrend)*(*npr)),double);
phiwrk=Calloc((size_t)((*ntrend)*(*ntrend)),double);
covbta=Calloc((size_t)((*ntrend)*(*ntrend)),double);
beta=Calloc((size_t)(*ntrend),double);
dev=Calloc((size_t)(*n),double);
cvsrnb=Calloc((size_t)(*n)*(*n),double);
zsrnb=Calloc((size_t)(*n),double);
fwork=Calloc((size_t)(*n)*(*ntrend),double);
fwork2=Calloc((size_t)(*n)*(*ntrend),double);
f0work=Calloc((size_t)(*ntrend),double);
dist=Calloc((size_t)(*n),double);
indsnb=Calloc((size_t)(*n),int);
indsnw=Calloc((size_t)(*n),int);
indsrt=Calloc((size_t)(*n),int);
kwork=Calloc((size_t)(*n)*(*n),double);
covmat =Calloc((size_t)(*n)*(*n),double);
c0vec =Calloc((size_t)(*n),double);
muwrk =Calloc((size_t)((*ntrend)*(*npr)),double);
phiwrk =Calloc((size_t)((*ntrend)*(*ntrend)),double);
covbta =Calloc((size_t)((*ntrend)*(*ntrend)),double);
beta =Calloc((size_t)(*ntrend),double);
dev =Calloc((size_t)(*n),double);
cvsrnb =Calloc((size_t)(*n)*(*n),double);
zsrnb =Calloc((size_t)(*n),double);
fwork =Calloc((size_t)(*n)*(*ntrend),double);
fwork2 =Calloc((size_t)(*n)*(*ntrend),double);
f0work =Calloc((size_t)(*ntrend),double);
dist =Calloc((size_t)(*n),double);
indsnb =Calloc((size_t)(*n),int);
indsnw =Calloc((size_t)(*n),int);
indsrt =Calloc((size_t)(*n),int);
kwork =Calloc((size_t)(*n)*(*n),double);
rhswork=Calloc((size_t)(*n),double);
fpwork=Calloc((size_t)(*n)*(*ntrend),double);
fpwork =Calloc((size_t)(*n)*(*ntrend),double);
fpfwork=Calloc((size_t)(*n)*(*n),double);
fpf0wrk=Calloc((size_t)(*n),double);
chlup=Calloc((size_t)(*n)*(*n),double);
cminv=Calloc((size_t)(*n)*(*n),double);
work=Calloc((size_t)(*lwork),double);
ipvt=Calloc((size_t)(*n),int);
ipiv=Calloc((size_t)(*n+*ntrend),int);
ferr=Calloc((size_t)(*n),double);
berr=Calloc((size_t)(*n),double);
iwork=Calloc((size_t)(3*(*n)),int);
mu=Calloc((size_t)(*ntrend),double);
lambda=Calloc((size_t)(*n),double);
chlup =Calloc((size_t)(*n)*(*n),double);
cminv =Calloc((size_t)(*n)*(*n),double);
work =Calloc((size_t)(*lwork),double);
ipvt =Calloc((size_t)(*n),int);
ipiv =Calloc((size_t)(*n+*ntrend),int);
ferr =Calloc((size_t)(*n),double);
berr =Calloc((size_t)(*n),double);
iwork =Calloc((size_t)(3*(*n)),int);
mu =Calloc((size_t)(*ntrend),double);
lambda =Calloc((size_t)(*n),double);
#else
covmat=(double *) R_alloc((*n)*(*n),sizeof(double));
c0vec=(double *) R_alloc((*n),sizeof(double));
muwrk=(double *) R_alloc((*ntrend)*(*npr),sizeof(double));
phiwrk=(double *) R_alloc((*ntrend)*(*ntrend),sizeof(double));
covbta=(double *) R_alloc((*ntrend)*(*ntrend),sizeof(double));
beta=(double *) R_alloc((*ntrend),sizeof(double));
dev=(double *) R_alloc((*n),sizeof(double));
cvsrnb=(double *) R_alloc((*n)*(*n),sizeof(double));
zsrnb=(double *) R_alloc((*n),sizeof(double));
fwork=(double *) R_alloc((*n)*(*ntrend),sizeof(double));
fwork2=(double *) R_alloc((*n)*(*ntrend),sizeof(double));
f0work=(double *) R_alloc((*ntrend),sizeof(double));
dist=(double *) R_alloc((*n),sizeof(double));
indsnb=(int *) R_alloc((*n),sizeof(int));
indsnw=(int *) R_alloc((*n),sizeof(int));
indsrt=(int *) R_alloc((*n),sizeof(int));
kwork=(double *) R_alloc((*n+*ntrend)*(*n+*ntrend),sizeof(double));
covmat =(double *) R_alloc((*n)*(*n),sizeof(double));
c0vec =(double *) R_alloc((*n),sizeof(double));
muwrk =(double *) R_alloc((*ntrend)*(*npr),sizeof(double));
phiwrk =(double *) R_alloc((*ntrend)*(*ntrend),sizeof(double));
covbta =(double *) R_alloc((*ntrend)*(*ntrend),sizeof(double));
beta =(double *) R_alloc((*ntrend),sizeof(double));
dev =(double *) R_alloc((*n),sizeof(double));
cvsrnb =(double *) R_alloc((*n)*(*n),sizeof(double));
zsrnb =(double *) R_alloc((*n),sizeof(double));
fwork =(double *) R_alloc((*n)*(*ntrend),sizeof(double));
fwork2 =(double *) R_alloc((*n)*(*ntrend),sizeof(double));
f0work =(double *) R_alloc((*ntrend),sizeof(double));
dist =(double *) R_alloc((*n),sizeof(double));
indsnb =(int *) R_alloc((*n),sizeof(int));
indsnw =(int *) R_alloc((*n),sizeof(int));
indsrt =(int *) R_alloc((*n),sizeof(int));
kwork =(double *) R_alloc((*n+*ntrend)*(*n+*ntrend),sizeof(double));
rhswork=(double *) R_alloc((*n+*ntrend),sizeof(double));
fpwork=(double *) R_alloc((*n)*(*ntrend),sizeof(double));
fpwork =(double *) R_alloc((*n)*(*ntrend),sizeof(double));
fpfwork=(double *) R_alloc((*n)*(*n),sizeof(double));
fpf0wrk=(double *) R_alloc((*n),sizeof(double));
chlup=(double *) R_alloc((*n)*(*n),sizeof(double));
cminv=(double *) R_alloc((*n)*(*n),sizeof(double));
work=(double *) R_alloc((*lwork),sizeof(double));
ipvt=(int *) R_alloc((*n),sizeof(int));
ipiv=(int *) R_alloc((*n+*ntrend),sizeof(int));
ferr=(double *) R_alloc((*n),sizeof(double));
berr=(double *) R_alloc((*n),sizeof(double));
iwork=(int *) R_alloc(3*(*n),sizeof(int));
mu=(double *) R_alloc((*ntrend),sizeof(double));
lambda=(double *) R_alloc((*n),sizeof(double));
chlup =(double *) R_alloc((*n)*(*n),sizeof(double));
cminv =(double *) R_alloc((*n)*(*n),sizeof(double));
work =(double *) R_alloc((*lwork),sizeof(double));
ipvt =(int *) R_alloc((*n),sizeof(int));
ipiv =(int *) R_alloc((*n+*ntrend),sizeof(int));
ferr =(double *) R_alloc((*n),sizeof(double));
berr =(double *) R_alloc((*n),sizeof(double));
iwork =(int *) R_alloc(3*(*n),sizeof(int));
mu =(double *) R_alloc((*ntrend),sizeof(double));
lambda =(double *) R_alloc((*n),sizeof(double));
#endif
F77_CALL(bkgrid)(xsw,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment