eps plot Command Referenceで紹介されている使用例のFortranコードが、13 例図のプログラムとして Referenceの末尾に掲載されています。
改良が重ねられたためか、ごく一部ですが、eps_plot Graphic Subroutine Packageと例図プログラムの間で整合性が取れなくなり、 コンパイル時エラーや実行時エラーが発生する例があります。
下記のように修正することによりエラーが発生しなくなります。
4行目 ! real :: x_array(4)=(/1.0,4.0,4.0,1.0/), y_array(4)=(/1.0,1.0,4.0,4.0/) type(coord_xy) :: xy(4) xy(1)=coord_xy(1.0,1.0) xy(2)=coord_xy(4.0,1.0) xy(3)=coord_xy(4.0,4.0) xy(4)=coord_xy(1.0,4.0) → real :: x_array(4)=(/1.0,4.0,4.0,1.0/), y_array(4)=(/1.0,1.0,4.0,4.0/) ! type(coord_xy) :: xy(4) ! xy(1)=coord_xy(1.0,1.0) ! xy(2)=coord_xy(4.0,1.0) ! xy(3)=coord_xy(4.0,4.0) ! xy(4)=coord_xy(1.0,4.0)
14行目 ! call clip_begin(x_array, y_array) call clip_begin(xy)→ → call clip_begin(x_array, y_array) ! call clip_begin(xy)
12行目 call dotset(3,pencolor=RGB_Blue,interval=0.07,size=0.02,angle=45.0) → call dotset(3,pencolor=RGB_Blue,interval=0.07,size=0.02,ang=45.0)
13行目 call hatchset(2,penmode=2,pencolor=RGB_red,penwidth=2,interval=0.2,angle=135.0,angle2=45.0) → call hatchset(2,penmode=2,pencolor=RGB_red,penwidth=2,interval=0.2,ang1=135.0,ang2=45.0)
7行目 call hatchset(51,penwidth=10,interval=0.5,angle=60.0) → call hatchset(51,penwidth=10,interval=0.5,ang1=60.0)
15行目 call plots(-13.0,13.0,file='tygrid.eps') → call plots(-13.0,13.0,file='../tygrid.eps')