;   typebuf= (int) MT_CHAR;  #ifdef DEBUG   printf("cput: rtdb=%d, mat=%d, nel=%d, name=%s\n", hbuf, typebuf, nelbuf, nbuf);   fflush(stdout); #endif    if (srtdb_put(hbuf, nbuf, typebuf, nelbuf, abuf))     return FORTRAN_TRUE;   else     return FORTRAN_FALSE; }   #if (defined(CRAY) || defined(USE_FCD)) && !defined(__crayx0) Logical FATR srtdb_cget_(const Integer *handle, _fcd name,      const Integer *nelem,      _fcd farray) {     int nlen = _fcdlen(name);     int alen = _fcdlen(farray);     char *array = _fcdtocp(farray); #else Logical FATR srtdb_cget_(const Integer *handle, const char *name,      const Integer *nelem,      char *array, const int nlen, const int alen) { #endif /*   