t_(const Integer *handle, char *name, int nlen) #endif { #if (defined(_CRAY) || defined(USE_FCD)) && !defined(__crayx0)   // dummy arg, value reassigned by string_to_fortchar in this case   int nlen = _fcdlen(name); #endif   char nbuf[000];    