Sorting algorithms/Insertion sort: Difference between revisions
Content added Content deleted
(→{{header|Perl}}: perlcritic(isms): DON't (ab)use unpack @_ assignment to also create local vars! constrain var scope; use return keyword) |
|||
Line 622: | Line 622: | ||
=={{header|Fortran}}== |
=={{header|Fortran}}== |
||
{{works with|Fortran|90 and later}} |
{{works with|Fortran|90 and later}} |
||
<lang fortran>SUBROUTINE Insertion_Sort(a) |
<lang fortran>PURE SUBROUTINE Insertion_Sort(a) |
||
REAL, INTENT(in out), DIMENSION(:) :: a |
REAL, INTENT(in out), DIMENSION(:) :: a |
||
REAL :: temp |
REAL :: temp |