NCAR Graphics自体に付属している例文の tgks0aを、すこし編集して、
tgks0a.f [link]
として置いてあります。
なお、NCAR の例文では、GKSの開始・終了を、GKS本来のルーチンを
呼び出して行なうようになっていましたが、ここに収録したものは、
NCAR Graphicsのopngks, clsgksを使うように変えてあります。
NCAR Graphicsの利用準備ができていれば、つぎの形で動かせるでしょう。
(./a.out を実行すると gmeta というファイルができます。
これを、NCAR Graphics のパッケージにふくまれたプログラム ctrans で画面に表示します。)
% ncargf77 tgks0a.f % ./a.out % ctrans gmeta