t((int) *handle, (int) sizeof(nbuf), nbuf) &&       string_to_fortchar(name, nlen, nbuf))     return FORTRAN_TRUE;   else     return FORTRAN_FALSE; }  #if (defined(_CRAY) || defined(USE_FCD)) && !defined(__crayx0) Logical FATR srtdb_