C    ////////////////////////////////// サブルーチン
    SUBROUTINE COORD(NOM,NEW,SITA)
    PARAMETER(N=512)
    DIMENSION NOM(N,N),NEW(N,N)
    INTEGER CX,CY
    DATA PI/3.1415926/
C    ---------------------------------- ジョウスウ ケイサン
    IC=INT(COS(-SITA*PI/180.)*4096.)
    IS=INT(SIN(-SITA*PI/180.)*4096.)
    CX=N/2
    CY=N/2
C   ---------------------------------- ショキカ
    DO 5 I =1,N
    DO 5 J=1,N
   5 NEW(I,J)=NOM(I,J)
C    ---------------------------------- ザヒョウ ヘンカン
    DO 10 I =1,N
    DO 10 J=1,N
    JX=(IC*(J-CX)-IS*(I-CY))/4096+CX
    JY=(IS*(J-CX)+IC*(I-CY))/4096+CY
    IF(JX.LT.1.OR.JX.GT.N.OR.JY.LT.1.OR.JY.GT.N) GOTO 10
  10 NEW(I,J)=NOM(JY,JX)
C
    RETURN
    END
 今回は画像の回転にチャレンジしました。 姑息な手を使っているところもありますが結果オーライということでお許しいただければと思います。

 あまり参考にならないと思いますが、リストも最後に載せています。 <Simple is Best>
-3.7°
-30°