t_(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_c