void derv1(STRING,double,byte);
void dmlc01(void(*)(),long,long,long,double*,long,double[],
	double[],double[],double[],double,long,long,long[],
	long,double[],long);
void dmlc02(
          void(*)(long,double[],double*,double[],LOGICAL32*),long,long,long,double*,long,double[],double[],double[],double[],double,
          long[],long*,double[],long,long,long*,long*,long*,double[],double[],double[],double[],double[],double*,double[],double[],
          double[],double[],double[],double[],double*,double[]);
void dmlc03(long,long,long,double*,long,double[],double[],
	long[],long*,long*,double[],double[],double,double[],
	double[]);
void dmlc04(long,long,double*,long,double[],double[],double[],
	double[],long[],long*,double[],long*,double[],double[],
	double[],double[],double,double*,long,long*,long,
	double[],double[],double[],double[],double[],double[],double[],
	double[]);
void dmlc05(
          void(*)(long,double[],double*,double[],LOGICAL32*),long,long,double*,long,double[],double[],double[],double[],double,long[],
          long*,double[],long,long,long,long,long*,double[],double[],double[],double[],double,double*,double,long,long,long*,long*,
          long*,long,double[],double*,double[],double[],double[],double[],double[],double[],double*,long*,LOGICAL32*,double[]);
void dmlc06(long,long,double*,long,double[],double[],double[],
	double[],long[],long*,double[],double[],double[],double[],
	double[],double[],double[],double[],double,double,double*,
	double*,long,long*,long,long*,double[],double[],
	double[],double[],double[]);
void dmlc07(long,long,double*,long,long[],long*,double[],
	double[],double[],double[],double[],double[],double,double*,
	long,long,double[],double[],double[],double[],double[]);
void dmlc08(long,long,double*,long,long[],long*,double[],
	double[],double[],double[],double[],double[],double,double*,
	long,long,double[],double[],double[]);
void dmlc09(
          void(*)(long,double[],double*,double[],LOGICAL32*),long,double[],double[],double[],double[],double[],double,double,double,
          double*,double*,long*,long,double[],double[],double[],long*,double[]);
void dmlc10(long,long,double*,long,long[],long*,double[],
	double[],double[],double,long,double[],double[],double[]);
void dmlc11(long,long,double*,long,double[],double[],double[],
	double[],long[],long*,long*,double[],double[],double[],
	double,double,long);
void dmlc12(long,long,double*,long,long[],long*,double[],
	double[],double,long,double[],double[]);
void dmlc13(long,long,double*,long,double[],double[],double[],
	double[],long[],long,double[],double,double*,long);
void dmlc14(long,long,double*,long,long[],long*,double[],
	double[],double,long);
void dmlc15(long,long,double[],double[],double[],long[],long*,
	long*,double[],double[],double[],double*);
void dmlc16(long,long,double*,long,long[],long,double[],
	double[],double[],double[],double[],double[],double*,long,
	double*,double[],double[]);
void dmlc17(long,long,double[],double[],double[],double[],double,
	double*);
void dmlc18(long,long,double*,long,long[],double[],double[],
	double*,double*,long,long*,long,long*);
void dmlc19(long,double[],long,double[],double[],double[],double[],
	double[],double*);
void dmlc20(
          void(*)(long,double[],double*,double[],LOGICAL32*),long,double[],double,double[],double[],double[],long*,long*,double[]);
void dmlc21(long,LOGICAL32,long,long,long,double,double,
	double[],double[],long,long[],double[],double[],double);
void ermor(STRING,byte);
void ermsg(STRING,long,long,STRING,byte);
void ierm1(STRING,long,long,STRING,STRING,long,byte);
void ierv1(STRING,long,byte);