))     return FORTRAN_TRUE;   else     return FORTRAN_FALSE; } #if (defined(CRAY) || defined(USE_FCD)) && !defined(__crayx0) Logical FATR srtdb_get_(const Integer *handle, _fcd name,      const Integer *ma_type, const Integer *nelem,      void *array) {     int nlen = _fcdlen(name); #else Logical FATR srtdb_get_(const Integer *handle, const char *name,      const Integer *ma_type, const Integer *nelem,      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_get: nbuf is too small, need=%d\n",       nlen);     return FORTRAN_FALSE;   }    nelbuf = (int) *nelem;   typebuf= (int) *ma_type;  #ifdef DEBUG   printf("get: rtdb=%d, mat=%d, nel=%d, name=%s\n", hbuf, typebuf, nelbuf, nbuf);   fflush(stdout); #endif    if (srtdb_