Lines Matching refs:values

45 // default values provided.
218 // strings to blanks and values to -HUGE as defined by the standard).
222     const Fortran::runtime::Descriptor *values) {
232   if (values) {
233     auto typeCode{values->type().GetCategoryAndKind()};
235         values->rank() == 1 && values->GetDimension(0).Extent() >= 8 &&
238     // DATE_AND_TIME values argument must have decimal range > 4. Do not accept
244           kind, terminator, *values, i);
350     std::size_t zoneChars, const Fortran::runtime::Descriptor *values) {
355         terminator, date, dateChars, time, timeChars, zone, zoneChars, values);
389   if (values) {
390     auto typeCode{values->type().GetCategoryAndKind()};
392         values->rank() == 1 && values->GetDimension(0).Extent() >= 8 &&
395     // DATE_AND_TIME values argument must have decimal range > 4. Do not accept
401           void>(kind, terminator, *values, atIndex, value);
408         kind, terminator, *values, 3, localTime);
421     std::size_t zoneChars, const Fortran::runtime::Descriptor *values) {
426       terminator, date, dateChars, time, timeChars, zone, zoneChars, values);
450     const char *source, int line, const Descriptor *values) {
453       terminator, date, dateChars, time, timeChars, zone, zoneChars, values);
456 void RTNAME(Etime)(const Descriptor *values, const Descriptor *time,
489   if (values) {
490     auto typeCode{values->type().GetCategoryAndKind()};
491     // ETIME values argument must have decimal range == 2.
493         values->rank() == 1 && typeCode &&
498     auto extent{values->GetDimension(0).Extent()};
501           kind, terminator, *values, /* atIndex = */ 0, usrTime);
505           kind, terminator, *values, /* atIndex = */ 1, sysTime);