『春秋左氏傳』の形式で昔話をパロディーにしています。猿蟹合戦の段を見る機会を得ましたが、とぼけていて面白い。江戸時代はなかなか奥が深いですｗ 儒者は現代のアカ／サヨクにの如く頭が固くて冗談が分からん印象を受けますが、中井履軒は大阪の民間の儒…

「豈可不放*身命竭忠誠、張国権於永遠、宣皇威於八紘哉。」放*：本当は旧字のなげうつ。旧字の放物線のほう。 「淮南子云、九州之外、乃有八[歹寅]、八[歹寅]之外、而有八紘。」とのこと。[歹寅] イン 遠い。 紘 コウ ひも、綱。支那人の世界像は３＊３のま…

PROGRAM test USE, INTRINSIC :: ieee_arithmetic USE, INTRINSIC :: ieee_exceptions USE, INTRINSIC :: ieee_features IMPLICIT NONE TYPE (IEEE_FEATURES_TYPE), PARAMETER :: ieee_feat(11) = [ IEEE_DATATYPE, IEEE_DENORMAL, IEEE_DIVIDE, IEEE_HALTIN…

MODULE m_type IMPLICIT NONE ! TYPE :: t_base INTEGER :: n REAL :: x END TYPE t_base ! END MODULE m_type !=================================================== MODULE m_extype USE m_type IMPLICIT NONE ! TYPE, EXTENDS(t_base) :: t_ext PROCEDUR…

Bugってて、ダミーの仮引数がないと構造体を PASS することができません。 MODULE m_test IMPLICIT NONE ! TYPE :: t_person CHARACTER (LEN = 10) :: name REAL :: age INTEGER :: id END TYPE t_person ! TYPE, EXTENDS(t_person) :: t_employee INTEGER :…

J・G・バラード死す! １．時の声 ２．砂の檻 ３．永遠の黄昏

INTRINSIC という命令があるのは知らなかったです。普通の状況では何をするわけでもないですが、ベンダー拡張の非標準の INTRINSIC 命令を周知できます。 PROGRAM test IMPLICIT NONE INTRINSIC :: LOC, sizeof ! non-standard intrinsic INTEGER :: i = 100…

IVF が少しバージョンアップして、ABSTRACT INTERFACE のバグが取れていました。 ABSTRACT INTERFACE があると、同じインターフェースを何度も書かなくてすみます。 実行結果 ソースプログラム MODULE m_sort IMPLICIT NONE ABSTRACT INTERFACE ELEMENTAL LO…

Fortran 95/2003 Explained の５章の例を動くようにしたもの。乱数で正負の数を作り、そのうち正の数だけを選んで、ちょうどの大きさの配列へのポインターを返す関数。 実行結果 ソースプログラム MODULE m_test IMPLICIT NONE CONTAINS !------------------…

RESHAPEで作ろうとして失敗していたが・・ それにつけても、宣言時に初期値を与えると自動的に SAVE 属性になるとは知らなかった。(ソースは"Fortran95/2003 Explained" chapter 6。) PROGRAM test IMPLICIT NONE INTEGER :: i, n(10, 10) = 0 FORALL (i = 1…