jf.h

Go to the documentation of this file.

// This is C:/JF/Software/Cpp/Include/jf.h
#define ANSI
#include        <math.h>
#include        <stdio.h>
#include        <conio.h>
#include        <stdlib.h>
#include        <string.h>
 
#define D(x,y)                  printf(" "#x":%"#y, x)
#define Diag(x,y)               if(diagon=='y') {fprintf(diag,"\n" #x"\t%"#y"\t", x); fflush(diag);}
#define Diag_Maple(x,y) fprintf(diag,"\n\# "#x" = %"#y";", x);
#define For(x,y,z)              for((x)=(y);(x)<=(z);(x)++)
 
#define Write(x,y,z)    fprintf(out,"\n" #x" %"#z" ",y)
#define print(y,z)              Write( ,y,z)
 
#define nl(x)                   fprintf((x),"\n")
#define Heading(x,y)    fprintf((x),"\n\n" #y "\n")
 
#define Asterisks(x)    For(i,0,72)fprintf(x,"*")
#define c(i)                    putchar(i)
#define w(x)                    fprintf(results,#x)
#define pf(x)                   printf("%8.5g",x)
#define pd(x)                   printf("%ld",x)
 
#define Readtext(stream,x)      fgets(x,400,stream); x[strlen(x)-1] = '\0'
#define Readtab(x)              fscanf(in,"%[^\t]%*c",x);
 
#define Skip(stream)    fgets(dummy,400,stream)
#define Read(stream,x,y) {fscanf(stream,"%"#y, &x);Skip(stream);}
 
#define endfile(x)              if(feof(x)) break
 
#define pause(x)                {printf("\nPaused: " x); fgetchar();}
 
#define IN                              fscanf(in,
#define OUT                             fprintf(out,
#define DIAG                    fprintf(diag,
#define SCREEN                  fprintf(stdout,
#define RESULTS                 fprintf(results,
 
#define END                             );
 
#define sign(x,y)               (fabs(x) * fabs(y)/y)
#define Sign(x)                 (x > 0. ? 1. : -1.)
 
#define iff(x,y)                if(strcmp(x,#y)==0)
#define Screenfull(x,y) if((x) % ((y)+1) == (y)) pause
 
#define pi                              3.14159265358979324
#define twopi                   6.2831853071795864769
 
int *ivector(long, long), **imatrix(long,long,long,long);
char *cvector(long, long), **cmatrix(long, long, long, long);
 
//complex<double> *complex_vector(long, long);
 
float           *vector(long , long);
float **matrix(long , long , long , long);
unsigned long *lvector(long , long );
 
double *dvector(long, long);
char *cvector(long, long);
double **dmatrix(long , long , long , long );
void free_ivector(int *, long, long);
void free_dvector(double *, long, long);
void free_lvector(unsigned long *, long, long);
void free_dmatrix(double **, long , long , long , long );
 
#define max(a,b)    (((a) > (b)) ? (a) : (b))
#define min(a,b)    (((a) < (b)) ? (a) : (b))