Commit de505f2

author

Vandenplas, Jeremie

committed

Update specs for sort_index

1 parent 1c385ff commit de505f2Copy full SHA for de505f2

File tree

-2

lines changed

-2

lines changed

Lines changed: 7 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -458,6 +458,12 @@ different on return`
`458`	`458`
`459`	`459`	`##### Examples`
`460`	`460`
	`461`	+Sorting a rank one array with `sort_index`:
	`462`	`+`
	`463`	+```Fortran
	`464`	`+{!example/sorting/example_sort_index.f90!}`
	`465`	+```
	`466`	`+`
`461`	`467`	`Sorting a related rank one array:`
`462`	`468`
`463`	`469`	```Fortran
`@@ -505,7 +511,7 @@ Sorting an array of a derived type based on the data in one component`
`505`	`511`
`506`	`512`	```fortran
`507`	`513`	`subroutine sort_a_data( a_data, a, work, index, iwork )`
`508`		- ! Sort `a_data` in terms or its component `a`
	`514`	+ ! Sort `a_data` in terms of its component `a`
`509`	`515`	`type(a_type), intent(inout) :: a_data(:)`
`510`	`516`	`integer(int32), intent(inout) :: a(:)`
`511`	`517`	`integer(int32), intent(out) :: work(:)`

Lines changed: 1 addition & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -107,7 +107,7 @@ contains`
`107`	`107`	`${ti},ドル allocatable :: ibuf(:)`
`108`	`108`
`109`	`109`	`if ( size(array, kind=int_index) > huge(1_${ki}$) ) then`
`110`		`- error stop "Too many entries for the chosen kind."`
	`110`	`+ error stop "Too many entries for the kind of index."`
`111`	`111`	`end if`
`112`	`112`
`113`	`113`	`array_size = size(array, kind=${ki}$)`

Comments

(0)