Lines Matching full:terminator
21 #include "terminator.h"
32 RT_API_ATTRS ShiftControl(const Descriptor &s, Terminator &t, int dim)
83 Terminator &terminator_;
93 const Descriptor &result, Terminator &terminator) {
96 terminator, catAndKind && catAndKind->first != TypeCategory::Derived);
113 terminator.Crash(
123 Terminator &terminator, const char *function) {
135 terminator.Crash(
143 int32_t n1, int32_t n2, Terminator &terminator, const char *function) {
160 terminator.Crash(
170 Terminator terminator{sourceFile, line};
171 AllocateBesselResult<CAT, KIND>(result, n1, n2, terminator, "BESSEL_JN");
222 Terminator terminator{sourceFile, line};
223 AllocateBesselResult<CAT, KIND>(result, n1, n2, terminator, "BESSEL_JN");
251 Terminator terminator{sourceFile, line};
252 AllocateBesselResult<CAT, KIND>(result, n1, n2, terminator, "BESSEL_YN");
303 Terminator terminator{sourceFile, line};
304 AllocateBesselResult<CAT, KIND>(result, n1, n2, terminator, "BESSEL_YN");
458 Terminator terminator{sourceFile, line};
460 RUNTIME_CHECK(terminator, rank > 1);
462 terminator.Crash(
465 ShiftControl shiftControl{shift, terminator, dim};
469 AllocateResult(result, source, rank, extent, terminator, "CSHIFT");
491 CopyElement(result, resultAt, source, sourceAt, terminator);
503 Terminator terminator{sourceFile, line};
504 RUNTIME_CHECK(terminator, source.rank() == 1);
507 AllocateResult(result, source, 1, &extent, terminator, "CSHIFT");
516 CopyElement(result, &resultAt, source, &sourceAt, terminator);
524 Terminator terminator{sourceFile, line};
527 RUNTIME_CHECK(terminator, rank > 1);
529 terminator.Crash(
533 AllocateResult(result, source, rank, extent, terminator, "EOSHIFT")};
537 RUNTIME_CHECK(terminator, boundaryRank == 0 || boundaryRank == rank - 1);
538 RUNTIME_CHECK(terminator, boundary->type() == source.type());
540 terminator.Crash("EOSHIFT: BOUNDARY= has element byte length %zd, but "
549 terminator.Crash("EOSHIFT: BOUNDARY= has extent %jd on dimension "
559 ShiftControl shiftControl{shift, terminator, dim};
566 DefaultInitialize(result, terminator);
587 CopyElement(result, resultAt, source, sourceAt, terminator);
589 CopyElement(result, resultAt, *boundary, boundaryAt, terminator);
604 Terminator terminator{sourceFile, line};
605 RUNTIME_CHECK(terminator, source.rank() == 1);
608 AllocateResult(result, source, 1, &extent, terminator, "EOSHIFT")};
610 RUNTIME_CHECK(terminator, boundary->rank() == 0);
611 RUNTIME_CHECK(terminator, boundary->type() == source.type());
613 terminator.Crash("EOSHIFT: BOUNDARY= has element byte length %zd but "
619 DefaultInitialize(result, terminator);
625 CopyElement(result, &j, source, &sourceAt, terminator);
627 CopyElement(result, &j, *boundary, 0, terminator);
636 Terminator terminator{sourceFile, line};
637 CheckConformability(source, mask, terminator, "PACK", "ARRAY=", "MASK=");
640 terminator, maskType && maskType->first == TypeCategory::Logical);
658 RUNTIME_CHECK(terminator, vector->rank() == 1);
659 RUNTIME_CHECK(terminator, source.type() == vector->type());
661 terminator.Crash("PACK: ARRAY= has element byte length %zd, but VECTOR= "
667 terminator.Crash("PACK: VECTOR= has extent %jd but there are %jd MASK= "
673 AllocateResult(result, source, 1, &extent, terminator, "PACK");
679 CopyElement(result, &resultAt, source, sourceAt, terminator);
689 CopyElement(result, &resultAt, source, sourceAt, terminator);
700 CopyElement(result, &resultAt, *vector, &vectorAt, terminator);
711 Terminator terminator{sourceFile, line};
712 RUNTIME_CHECK(terminator, shape.rank() == 1);
713 RUNTIME_CHECK(terminator, shape.type().IsInteger());
716 terminator.Crash(
728 shape.Element<char>(&shapeSubscript), shapeElementBytes, terminator)};
730 terminator.Crash("RESHAPE: value of SHAPE(%d) exceeds 64 bits", j + 1);
732 terminator.Crash("RESHAPE: bad value for SHAPE(%d)=%jd", j + 1,
746 terminator.Crash(
751 terminator.Crash("RESHAPE: PAD= has element byte length %zd but SOURCE= "
761 RUNTIME_CHECK(terminator, order->rank() == 1);
762 RUNTIME_CHECK(terminator, order->type().IsInteger());
764 terminator.Crash("RESHAPE: the extent of ORDER (%jd) must match the rank"
774 orderElementBytes, terminator)};
776 terminator.Crash("RESHAPE: ORDER element value exceeds 64 bits");
778 terminator.Crash("RESHAPE: bad value for ORDER element (%jd)",
792 result, source, resultRank, resultExtent, terminator, "RESHAPE");
802 CopyElement(result, resultSubscript, source, sourceSubscript, terminator);
811 CopyElement(result, resultSubscript, *pad, padSubscript, terminator);
821 Terminator terminator{sourceFile, line};
823 RUNTIME_CHECK(terminator, rank <= maxRank);
825 terminator.Crash("SPREAD: DIM=%d argument for rank-%d source array "
835 AllocateResult(result, source, rank, extent, terminator, "SPREAD");
845 CopyElement(result, resultAt, source, sourceAt, terminator);
855 Terminator terminator{sourceFile, line};
856 RUNTIME_CHECK(terminator, matrix.rank() == 2);
859 AllocateResult(result, matrix, 2, extent, terminator, "TRANSPOSE");
867 CopyElement(result, resultAt, matrix, matrixAt, terminator);
875 Terminator terminator{sourceFile, line};
876 RUNTIME_CHECK(terminator, vector.rank() == 1);
878 RUNTIME_CHECK(terminator, rank > 0);
881 CheckConformability(mask, field, terminator, "UNPACK", "MASK=", "FIELD=");
883 AllocateResult(result, field, rank, extent, terminator, "UNPACK")};
884 RUNTIME_CHECK(terminator, vector.type() == field.type());
886 terminator.Crash(
902 terminator.Crash(
907 CopyElement(result, resultAt, vector, &vectorAt, terminator);
910 CopyElement(result, resultAt, field, fieldAt, terminator);