<?xml version="1.0" encoding="UTF-8"?>
<!-- generator="FeedCreator 1.8" -->
<?xml-stylesheet href="https://ww8central.ww.uni-erlangen.de/lib/exe/css.php?s=feed" type="text/css"?>
<rdf:RDF
    xmlns="http://purl.org/rss/1.0/"
    xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
    xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
    xmlns:dc="http://purl.org/dc/elements/1.1/">
    <channel rdf:about="https://ww8central.ww.uni-erlangen.de/feed.php">
        <title>ww8central - programming:fortran</title>
        <description></description>
        <link>https://ww8central.ww.uni-erlangen.de/</link>
        <image rdf:resource="https://ww8central.ww.uni-erlangen.de/_media/wiki/logo.png" />
       <dc:date>2026-04-12T16:17:16+00:00</dc:date>
        <items>
            <rdf:Seq>
                <rdf:li rdf:resource="https://ww8central.ww.uni-erlangen.de/programming/fortran/gsl?rev=1456308093&amp;do=diff"/>
            </rdf:Seq>
        </items>
    </channel>
    <image rdf:about="https://ww8central.ww.uni-erlangen.de/_media/wiki/logo.png">
        <title>ww8central</title>
        <link>https://ww8central.ww.uni-erlangen.de/</link>
        <url>https://ww8central.ww.uni-erlangen.de/_media/wiki/logo.png</url>
    </image>
    <item rdf:about="https://ww8central.ww.uni-erlangen.de/programming/fortran/gsl?rev=1456308093&amp;do=diff">
        <dc:format>text/html</dc:format>
        <dc:date>2016-02-24T10:01:33+00:00</dc:date>
        <dc:creator>Anonymous (anonymous@undisclosed.example.com)</dc:creator>
        <title>GNU Scientific Library (GSL/FGSL)</title>
        <link>https://ww8central.ww.uni-erlangen.de/programming/fortran/gsl?rev=1456308093&amp;do=diff</link>
        <description>GNU Scientific Library (GSL/FGSL)

Documentation and Examples of the GSL

&lt;https://en.wikipedia.org/wiki/GNU_Scientific_Library&gt;

Documentation of the FGSL

Not realy something anywhere.

&lt;http://www.lrz.de/services/software/mathematik/gsl/fortran/&gt;

Sorting


program mysort
  use fgsl
  use iso_c_binding
  implicit none
  integer(c_size_t) :: i, n idx(20)
  double precision :: arr(20)

  ...

  ! index sort. Original contents undisturbed
  call fgsl_sort_index(idx, arr, 1_fgsl_size_t, n)
  idx …</description>
    </item>
</rdf:RDF>
