#include <stdio.h>
extern int print_is_on;

double m_open(float *, short, double *);

double
m_input(float *p,short n_args,double *pp)
{
	p[1] = (n_args > 1) ? p[1] : 0.;
	p[2] = 0;
	n_args = 3;
	if(print_is_on)
		fprintf(stderr,"Opening input file as unit %d\n",(int)p[1]);
	return m_open(p,n_args,pp);
}

double
m_output(float *p,short n_args,double *pp)
{
	int i;
	p[1] = (n_args > 1) ? p[1] : 1.;
	p[2] = 2;
	n_args = 3;
	i = p[0];
	if(print_is_on)
		fprintf(stderr,"Opening output file as unit %d\n",(int)p[1]);
    	return m_open(p,n_args,pp);
}

#include <globals.h>
#include <stdio.h>

extern double m_open(float *, short, double *);

double
m_input(float *p,short n_args,double *pp)
{
	p[1] = (n_args > 1) ? p[1] : 0.;
	p[2] = 0;
	n_args = 3;
	if(print_is_on)
		fprintf(stderr,"Opening input file as unit %d\n",(int)p[1]);
	return m_open(p,n_args,pp);
}

double
m_output(float *p,short n_args,double *pp)
{
	int i;
	p[1] = (n_args > 1) ? p[1] : 1.;
	p[2] = 2;
	n_args = 3;
	i = p[0];
	if(print_is_on)
		fprintf(stderr,"Opening output file as unit %d\n",(int)p[1]);
    	return m_open(p,n_args,pp);
}

Move some globals to globals.h.
Move some globals to globals.h.
