name, const Integer *ma_type,     const Integer *nelem, const void *array, const int nlen) { #endif   int hbuf = (int) *handle;   char nbuf[000];   int nelbuf;   int typebuf;    if (!fortchar_to_string(name, nlen, nbuf, sizeof(nbuf))) {     (void) fprintf(stderr, "srtdb_put: nbuf is too small, need=%d\n",       nlen);     return FORTRAN_FALSE;   }    nelbuf = (int) *nelem;   typebuf= (int) *ma_type;  #ifdef DEBUG   printf("put: rtdb=%d, mat=%d, nel=%d, name=%s\n", hbuf, typebuf, nelbuf, nbuf);   fflush(stdout); #endif    if (srtdb_put(hbuf, nbuf, typebuf, nelbuf, a