fortran66 https://blog.hatena.ne.jp/fortran66/ fortran66のブログ https://fortran66.hatenablog.com/ Fortran2003 群の積を中値演算子 .o. と定義。逆演算子は単項演算子にしてもいいが関数のままに。f2008の findloc 関数が使えると便利なんですが、無いので do..loop にて処理。 実行結果 : 1 2 3 4 5 6 - 1: 1 2 3 4 5 6 2: 2 3 1 5 6 4 3: 3 1 2 6 4 5 4: 4 6 5 1 3 2 5: 5 4 6 2 1 3 6: 6 5 4 3 2 1inv 1 3 2 4 5 6 続行するには何かキーを押してください . . . ソース・プログラム module m_S3group implicit none integer, paramet… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Ffortran66.hatenablog.com%2Fentry%2F20121216%2F1355596692" title="Sn(3)群 - fortran66のブログ" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> http://cdn-ak.f.st-hatena.com/images/fotolife/f/fortran66/20121216/20121216034227.png Hatena Blog https://hatena.blog 2012-12-16 03:38:12 rich https://fortran66.hatenablog.com/entry/20121216/1355596692 1.0 100%