Generalize the reshape step in d_tract_assembly.f90
Generalize reshape (line 96):
Nt = reshape((/QUADRATURE%Nxi_tract(:, G_pts), 0.0d0, 0.0d0, 0.0d0, 0.0d0, QUADRATURE%Nxi_tract(:, G_pts)/), (/4, 2/))
To receive notifications about scheduled maintenance, please subscribe to the mailing-list gitlab-operations@sympa.ethz.ch. You can subscribe to the mailing-list at https://sympa.ethz.ch
Generalize reshape (line 96):
Nt = reshape((/QUADRATURE%Nxi_tract(:, G_pts), 0.0d0, 0.0d0, 0.0d0, 0.0d0, QUADRATURE%Nxi_tract(:, G_pts)/), (/4, 2/))