There is a problem with passing the (third) character argument to the
mona subroutine.  The programmer's guide says that a character argument
needs to be passed as char ** in C and CHARACTER (*) in FORTRAN ...

In C, the problem can easily be solved by using a char ** in the
argument list and initializing a local char * from that.  See below.

***********************************************************************
*** mona.c.orig	Sat Aug  2 19:49:39 1997
--- mona.c	Sat Aug  2 19:55:49 1997
***************
*** 5,14 ****
  
  #include "f2c.h"
  
! /* Subroutine */ int mona_(nn, jpp, kx, jerr, nban, ner, kwan, lava, jlack, 
  	kx_len)
  integer *nn, *jpp;
! char *kx;
  integer *jerr, *nban, *ner, *kwan, *lava, *jlack;
  ftnlen kx_len;
  {
--- 5,14 ----
  
  #include "f2c.h"
  
! /* Subroutine */ int mona_(nn, jpp, kxx, jerr, nban, ner, kwan, lava, jlack, 
  	kx_len)
  integer *nn, *jpp;
! char **kxx;
  integer *jerr, *nban, *ner, *kwan, *lava, *jlack;
  ftnlen kx_len;
  {
*************** ftnlen kx_len;
*** 23,28 ****
--- 23,31 ----
      static integer laa, lbb, lcc, ldd, lee, kal, jma, nel, jva, jvb, jvc, jvd,
  	     kva, kvb, kvc, kvd;
      static char nzf[1];
+ 
+     char *kx;
+     kx = *kxx;
  
  /* C */
  /* C   MONOTHETIC ANALYSIS */
