シンタックス・ハイライト

はてなダイアリーにソースコードを色付けして記述する（シンタックス・ハイライト） - はてなダイアリーのヘルプなる機能が加わっていた。試しにfortranのソースを貼り付けてみよう。

      SUBROUTINE GENERGY(X,G)
C-------------------------------------------------
C     関数ENERGYのXでの差分を取り勾配ベクトルGを返す。
C-------------------------------------------------
      DOUBLE PRECISION DX(1000), X( * ), G( * ), DELTA,A
      INTEGER NN, I1, I2
      COMMON /ABC/ NN
      DELTA = 1.0D-12
      A = ENERGY(X)
      DO 10 I1 = 1, NN
        DX(I1) = 0.0D0
        G(I1)  = 0.0D0
   10 CONTINUE
C
      DO 30 I2 = 1, NN
        DO 20 I1 = 1, NN
          IF (I1.NE.I2) THEN
            DX(I1)=X(I1)
          ELSE
            DX(I1)=X(I1)+DELTA
          END IF
   20   CONTINUE
        G(I2) = (ENERGY(DX)-A)/DELTA
   30 CONTINUE
      RETURN
      END

おー、すごい(゜o゜)これは便利だ。