OpenXM/src/hgm/mh/src/jack-n.c - diff

Return to jack-n.c CVS log

Up to [local] / OpenXM / src / hgm / mh / src

version 1.44, 2016/02/09 10:30:18

version 1.45, 2016/02/13 22:56:50

Line 7

#define VSTRING "%!version2.0"

$OpenXM: OpenXM/src/hgm/mh/src/jack-n.c,v 1.43 2016/02/09 06:38:01 takayama Exp $

$OpenXM: OpenXM/src/hgm/mh/src/jack-n.c,v 1.44 2016/02/09 10:30:18 takayama Exp $

Ref: copied from this11/misc-2011/A1/wishart/Prog

jack-n.c, translated from mh.rr or tk_jack.rr in the asir-contrib. License: LGPL

Koev-Edelman for higher order derivatives.

Line 218 static int setParamDefault();

static int next(struct SFILE *fp,char *s,char *msg);

static int setParam(char *fname);

static int showParam(struct SFILE *fp,int fd);

#ifdef STANDALONE

static int showParam_v1(struct SFILE *fp,int fd);

#endif

static double iv_factor(void);

static double gammam(double a,int n);

static double mypower(double a,int n);

Line 2083 static int setParam(char *fname) {

Line 2085 static int setParam(char *fname) {

mh_fclose(fp);

}

#ifdef STANDALONE

/* may remove */

static int showParam_v1(struct SFILE *fp,int fd) {

int rank,i;

char swork[1024];

Line 2139 static int showParam_v1(struct SFILE *fp,int fd) {

Line 2142 static int showParam_v1(struct SFILE *fp,int fd) {

sprintf(swork,"%%ef_type=%d\n",Ef_type); mh_fputs(swork,fp);

}

#endif

/* version2.0 format */

static int showParam(struct SFILE *fp,int fd) {

int rank,i;