\documentclass[a4paper]{article}
\newif\ifpdf
\ifx\pdfoutput\undefined
  \pdffalse % we do not use PDFLaTeX
\else
  \pdfoutput=1 % we use PDFLaTeX
  \pdftrue
\fi
\usepackage{linuxdoc-sgml}
\usepackage{qwertz}
\usepackage{url}
\usepackage[latin1]{inputenc}
\ifpdf
  \usepackage[pdftex,colorlinks=true,urlcolor=blue,linkcolor=blue]{hyperref}
  \pdfcompresslevel=9
\else
%%  \usepackage{t1enc}
%%  \usepackage[dvips]{hyperref}
\fi
\usepackage[english]{babel}
\usepackage{epsfig}
\usepackage{null}
\def\addbibtoc{
\addcontentsline{toc}{section}{\numberline{\mbox{}}\relax\bibname}
}%end-preamble
\setcounter{page}{1}
\urldef{\aaaurl} \url{http://www.ruby-lang.org/ja/}
\title{$BCO5eN.BNEEG>%i%$%V%i%j(B Q and A $B=8(B}
\author{$BJ]<i4IM}<T(B:
\ifpdf
\href{mailto:kagimoto@jamstec.go.jp}{$B80K\(B $B?r(B}
\else
\onlynameurl{$B80K\(B $B?r(B}
\fi
}
\date{Last updated:\$Date: 2006/03/30 04:01:31 \$}
\abstract{$B$3$NJ8=q$OEDCfBYCh$5$s$,:n@.$7$?CO5eN.BNEEG>%i%$%V%i%j$NLdEz7A<0(B Tips
$B=8$r(B, $B%P!<%8%g%s(B 5.3 $BMQ$K2~D{$7$?$b$N$G$9(B. $B4pK\E*$JFbMF$O%a!<%j%s%0%j(B
$B%9%H$GOCBj$K$J$C$?LdEz$r4p$K$7$F$*$j$^$9(B. $B9`L\$NDI2C(B, $BDs0F(B, $B<ALd$J$I$O(B
$BJ]<i4IM}<T$^$G$4O"Mm2<$5$$(B.}


\begin{document}
\maketitle
\tableofcontents

\section{$B0lHLJT(B}


\subsection{$BCO5eN.BNEEG>%i%$%V%i%j(B(DCL)$B$H$O2?$G$9$+(B?}

$BCO5eN.BNEEG>%i%$%V%i%j$O(B FORTRAN77 $B$G5-=R$5$l$?2D;k2==hM}(B, $B?t(B
$BCM7W;;=hM}(B, $BJ8;z=hM}MQ$N4X?t72$r=8$a$?%i%$%V%i%j$G$9(B. $B4J0W%^(B
$B%K%e%"%k!X$i$/$i$/(B DCL$B!Y$+$i0lItH4?h$9$k$H0J2<$NDL$j$G$9(B.
\begin{quotation}
$BCO5eN.BNEEG>%i%$%V%i%j(B(DCL)$B$O(B, $BCO5eN.BNEEG>6f3ZIt$H$$$&=8$^(B
$B$j$N2<$G(B, $BCO5eN.BNNO3X4X78$N8&5f<TM-;V$,D9G/$K$o$?$C$F3+H/(B, 
$B2~NI(B, $B$"$k$$$O<}=8$7$F$-$?!V8&5f<T$K$h$k8&5f<T$N$?$a$N%i%$%V(B
$B%i%j!W$G$9(B. $B$^$?(B, $B$3$N%i%$%V%i%j$O(B, $B5^B.$KJQ2=$7$D$D$"$k7W;;(B
$B5!4D6-$KBP1~$9$k$?$a$K(B, $B8=:_$G$b$D$M$K3+H/(B, $B2~D{$,9T$o$l$F$$(B
$B$k!V@8$-$F$$$k%i%$%V%i%j!W$G$b$"$j$^$9(B. $B>pJs9)3X$J$I$H$OH*0c(B
$B$$$N<T$K$H$C$F$3$N$h$&$J%i%$%V%i%j$r0];}$9$k$3$H$O7h$7$F3Z$J(B
$B$3$H$G$O$"$j$^$;$s$,(B, $B7W;;5!$NMxMQ$,IT2D7g$H$J$C$?8=:_(B, $B2f!9(B
$B$O$"$($F$3$N:$Fq$J:n6H$K<h$jAH$_(B, $B3N<B$J5;=Q$K4p$E$/CO5eN.BN(B
$BNO3X$NCe<B$JH/E8$r$a$6$7$F$$$^$9(B.
\end{quotation}

$B6qBNE*$K2?$,$G$-$k$N$+$K$D$$$F$O!X$i$/$i$/(B DCL$B!Y$r;2>H2<$5$$(B.


\subsection{DCL $B$K$O$I$s$JFCD'$,$"$k$N$G$9$+(B?}

$B!X$i$/$i$/(B DCL$B!Y%^%K%e%"%k$N(B $B!X$O$8$a$K!Y$K$O(B, $B<!$N$h$&$K5-$5(B
$B$l$F$$$^$9(B.
\begin{quotation}
$BCO5eN.BNNO3X$H$$$&J,Ln$K$*$1$k(B, $BFC$KBg3X$G$N8&5f650i3hF0$N8=(B
$B>u$rH?1G$7$F(B, DCL$B$O<!$N$h$&$JFCD'$r;}$C$F$$$^$9(B.
\begin{enumerate}
\item $B!VI8=`8@8l!W$H$7$F%i%$%V%i%j$NBN7O$,$o$+$j$d$9$/(B, $B=@(B
$BFp$G$"$k(B.
\item  $B%W%m%0%i%`$,E,Ev$K9=B$2=$5$l(B, $B2DFI@-$,9b$$(B.
\item  $BJ#?t$N7W;;5!>e$GF1$8%W%m%0%i%`$,<B9T$G$-$k(B.
\item  $BI8=`E*$K(B FORTRAN $B8@8l$r;H$&(B.
\item  $B9bIJ<A$J(B2$B<!85$N?^7A=PNO$,%5%V%k!<%A%s%3!<%k$N7A$G$G(B
$B$-$k(B.
\item  $B7gB;CM$NB8:_$9$k%G!<%?(B($B4QB,CM(B)$B$r(B, $B$=$N$^$^07$($k(B.
\end{enumerate}

$B$3$N$&$A(B1, 2 $B$NFCD'$OBg3X$G;H$&$H$$$&;v>p$rH?1G$7$?$b$N$G$"(B
$B$j(B, 3, 4 $B$O8=:_$N2f!9$r<h$j4,$/7W;;5!4D6-$K4X78$7$F$$$^$9(B.
$B$^$?(B, 5, 6 $B$O(B, $B>o$K7W;;5!$NG=NO$$$C$Q$$$N;E;v$,B8:_$9$k$H$$(B
$B$&CO5eN.BNNO3X$NFCD'$K4X78$9$k$b$N$G$9(B.
\end{quotation}



\subsection{$B!X(BDCL$B!Y$C$F2?$NN,$G$9$+(B?}

Dennou Club Library $B$NN,$G$9(B.


\subsection{DCL $B$O$I$3$+$iF~<j$G$-$k$G$7$g$&$+(B?}

$BEEG>%5!<%P!<$H8F$P$l$k(B WWW / Anonymous FTP  $B%5!<%P!<$+$iF~<j(B
$B2DG=$G$9(B. URL $B$O(B
\begin{quotation}
\ifpdf
\href{ftp://www.gfd-dennou.org/arch/dcl}{ftp://www.gfd-dennou.org/arch/dcl}
\else
\onlynameurl{ftp://www.gfd-dennou.org/arch/dcl}
\fi
\end{quotation}

$B$J$I$G$9(B. $B$=$l$>$l$N;q8;$NCx:n8"$K4X$7$F$O$=$l$>$l$N;q8;$K5-$5(B
$B$l$F$$$k;X<($r<i$C$FMxMQ$9$k$h$&$K$7$F$/$@$5$$(B.


\subsection{DCL $B$O%U%j!<$G$9$+(B?}

$B$O$$(B, $B%U%j!<%=%U%H%&%'%"$G$9(B. $BCx:n8"$O(B GNU Public License $B$K=`(B
$B5r$7$F$*$j$^$9(B. $B0x$_$K%Q%C%1!<%8Fb$N(B CREDITS $B$K$OHG8"$r0J2<$N(B
$B$h$&$KDj$a$F$*$j$^$9(B.
\begin{quotation}
$BK\;q8;$NHG8"$OCO5eN.BNEEG>6f3ZIt$KB0$9$k(B. $B;q8;$NMxMQ$K$"$?$C(B
$B$F$OCO5eN.BNEEG>6f3ZIt$NDj$a$k5,Dj$K$7$?$,$C$F$$$?$@$-$?$$(B.
$B86B'$H$7$F(B, $B650iE*L\E*$N>l9g$K$O<+M3$K;HMQ!&2~JQ$7$FNI$$$b$N(B
$B$H$7$F$$$k(B.
\end{quotation}



\subsection{$BCO5eN.BNEEG>6f3ZIt$N%a!<%j%s%0%j%9%H$O$"$j$^$9$+(B?}

$B$"$j$^$9(B.
\begin{quotation}
\ifpdf
\href{http://www.gfd-dennou.org/arch/dcusers/}{http://www.gfd-dennou.org/arch/dcusers/}
\else
\onlynameurl{http://www.gfd-dennou.org/arch/dcusers/}
\fi
\end{quotation}

$B$r;2>H$7$F$/$@$5$$(B.


\subsection{DCL $B$N3+H/$K;22C$7$?$$$N$G$9$,(B.}

\begin{quotation}
\ifpdf
\href{http://www.gfd-dennou.org/html/about/admin.html}{$B4IM}@UG$%0%k!<%W(B}
\else
\onlynameurl{$B4IM}@UG$%0%k!<%W(B}
\fi
\end{quotation}

$B$K8fAjCL2<$5$$(B.


\section{$B%$%s%9%H!<%kJT(B}


\subsection{BSD $B7O%*%Z%l!<%F%#%s%0%7%9%F%`$G(B DCL $B$N%3%s%Q%$%k$,$&$^$/$G$-$^$;$s(B.}

FreeBSD, NetBSD, BSD/OS $B$J$I$N(BBSD$B7O$N(B OS $B$KIUB0$N(B make $B$G$O(B
Makefile $B$N(B include $B$NJ8K!$,0[$J$k$3$H$,$"$k$?$a(B, make $B$,<B9T(B
$B$G$-$J$$2DG=@-$,$"$j$^$9(B. $B$=$N>l9g$O(B GNU make (gmake)$B$r;H$C$F(B
$B$_$F2<$5$$(B.


\subsection{C$BHG(B DCL $B$r0lEY%S%k%I8e(B, {\ttfamily make distclean} $B$7$F$+$i:F%S%k%I$7$?$b$N$r%$%s%9%H!<%k$9$k$H(B, $B<B9T;~$K%(%i!<$,$G$^$9(B.}

$BNc$($P(B {\ttfamily demo/rakuraku/} $B%G%#%l%/%H%j$K$"$k%W%m%0%i%`(B
color1.c $B$r%3%s%Q%$%k5Z$S<B9T$9$k$H<!$N$h$&$J%(%i!<%a%C%;!<%8$,(B
$B$G$k$+$b$7$l$^$;$s(B.
\begin{verbatim}
    % cd demo/rakuraku/color/
    % cdclcc color1.c  
    % ./a.out
      WORKSTATION ID (I) ? ; 
     1:X, 2:PS, 3:Tek, 4:Gtk ;
    1
     *** MESSAGE (SWDOPN) ***  GRPH1 : STARTED / IWS = -1.
     ***** ERROR (SWCMLL) ***  COLORMAP LIST DOES NOT EXIST. 
    IOT Trap        
    Aborted 
\end{verbatim}

$B$3$l$O:G=i$N(B {\ttfamily configure} $B<B9T;~$K;XDj$7$?(B prefix $B%G%#%l%/%H(B
$B%j$NCM(B ($B;XDj$7$J$1$l$P(B {\ttfamily /usr/local}) $B$H(B, {\ttfamily make
distclean} $B8e$N(B {\ttfamily configure} $B<B9T;~$K;XDj$7$?(B prefix $B%G%#%l(B
$B%/%H%j$NCM$,0[$J$k>l9g$K@8$8$^$9(B. {\ttfamily make distclean} $B8e$K(B
\begin{verbatim}
    % rm src/math1/syslib/glcqnp.c
    % rm src/math1/syslib/gliqnp.c
    % rm src/math1/syslib/glrqnp.c 
\end{verbatim}

$B$r9T$C$F$+$i(B {\ttfamily configure} $B$r<B9T$9$k$H(B, prefix $B%G%#%l%/%H(B
$B%j$NCM$,H?1G$5$l$^$9(B.

$B0x$_$K$3$NLdBj$O(B2004$BG/(B12$B7n(B2$BF|HG$h$j2r7h$7$F$*$j$^$9(B.


\subsection{C$BHG(B DCL $B$,(B Fedora Core 3 $B$G%$%s%9%H!<%k$G$-$^$;$s(B.}

{\ttfamily f2csrc/sle.c} $B$N%3%s%Q%$%kCf$K(B
\begin{verbatim}
conflicting types for 'malloc'
\end{verbatim}

$B$H%(%i!<%a%C%;!<%8$,=P$F%S%k%I$K<:GT$7$^$9(B. $B$3$l$O(B gcc-3.4.2
$B0J9_$+$i7?%A%'%C%/$,87$7$/$J$C$?$+$i$N$h$&$G$9(B.
{\ttfamily f2csrc/sle.c} $B$N(B {\ttfamily extern char *malloc()} $B$H$$$&(B
$B5-=R$r(B {\ttfamily extern void *malloc()} $B$KJQ99$9$k$3$H$GBP=h$G$-(B
$B$^$9(B.

$B$3$NLdBj$O(B dcl-5.3-C-20050523.tar.gz $B0J9_$G2r7h:Q$_$G$9(B.


\subsection{Compaq Alpha $B$K(B DCL $B$r%$%s%9%H!<%k$9$k:](B configure $B$,ESCf$G$H$^$C$F$7$^$&$N$G$9$,(B.}

$B$b$7;_$^$C$F$$$k8D=j$,(B
\begin{verbatim}
checking for C-equivalent to Fortran routine "SUB"... nm: conftest.o: File truncated
\end{verbatim}

$B$G$"$l$P(B, {\ttfamily nm} $B%3%^%s%I$,%7%9%F%`$GMQ0U$5$l$F$$$k(B
{\ttfamily /usr/bin/nm} $B$G$O$J$/JL$N$b$N$,MQ$$$i$l$F$$$k2DG=@-$,(B
$B$"$j$^$9(B ($BNc$($P(B GNU binutils $B$K4^$^$l$F$$$k(B {\ttfamily nm}). $B2?8N8e(B
$B<T$,;H$($J$$$N$+$o$+$j$^$;$s$,(B, $BA0<T$,;H$o$l$k$h$&$K(BPATH $B$N@_(B
$BDj$rE,@Z$K9T$C$F2<$5$$(B.


\section{$BMxMQJT(B}


\subsection{$B%&%$%s%I%&$N%5%$%:$rJQ$($?$$$N$G$9$,(B.\label{$B%&%#%s%I%&%5%$%:(B}}

SWPACK $B$NFbItJQ?t(B {\ttfamily IWIDTH} $B$H(B {\ttfamily IHEIGHT} $B$r@_Dj$9$k$HJQ$o(B
$B$j$^$9(B.
\begin{itemize}
\item $BNc(B 1) $B%W%m%0%i%`$G(B
\begin{verbatim}
CALL SWISET('IWIDTH', 600)
CALL SWISET('IHEIGHT', 400) 
\end{verbatim}
\item $BNc(B 2) $B%3%^%s%I%i%$%s0z?t$+$i(B
\begin{verbatim}
% ./a.out -sw:iwidth=600 -sw:iheight=400 
\end{verbatim}
\item $BNc(B 3) $B4D6-JQ?t$G(B (csh $B7O(B)
\begin{verbatim}
% setenv SW:IWIDTH  600
% setenv SW:IHEIGHT 400 
\end{verbatim}
\item $BNc(B 4) .dclrc $B$H$$$&%U%!%$%k$r:n$j(B, $B$=$3$K(B
\begin{verbatim}
sw:iwidth 400
sw:iheight 400 
\end{verbatim}

$B$H;XDj$9$k(B.
\end{itemize}


$B4D6-JQ?t$N;XDjJ}K!$N>\:Y$K4X$7$F$O(B MATH1$B%^%K%e%"%k$N!X35MW(B/$BFb(B
$BItJQ?t!Y$r;2>H$7$F2<$5$$(B.

$B$J$*(B, $B%&%$%s%I%&!&%^%M!<%8%c!<$G%5%$%:$rJQ$($h$&$H$7$F$b(B, $B?^$N(B
$B%5%$%:$OJQ$o$j$^$;$s(B.

$B0J8eFbItJQ?t$NJQ99$K$D$$$F$ONc(B1$B!A(B4$B$^$G$N$$$:$l$NJ}K!$bE,MQ$G$-(B
$B$^$9(B. 


\subsection{$B%&%$%s%I%&$NI=<(0LCV$r8GDj$7$?$$$N$G$9$,(B.}

SWPACK $B$NFbItJQ?t(B {\ttfamily IPOSX} $B$H(B {\ttfamily IPOSY} $B$G(B, $B%0%i%U%#%C%/!&(B
$B%&%#%s%I%&$N0LCV$r;XDj$G$-$^$9(B.
\begin{verbatim}
CALL SWISET('IPOSX', 30)
CALL SWISET('IPOSY', 30) 
\end{verbatim}

$B$3$l$O:8>e(B($B86E@(B)$B$+$i1&$K(B30$B%T%/%;%k(B, $B2<$K(B30$B%T%/%;%k$N0LCV$r86E@$H(B
$B$7$?%&%#%s%I%&$,@8@.$5$l$kNc$G$9(B. X Windows $B%7%9%F%`$G$O%j%=!<%9(B
$B@_Dj$G(B geometry $B%(%s%H%j$KIiCM$r;XDj$9$k$H(B x $BJ}8~$O1&$+$i(B, y$BJ}8~(B
$B$O2<$+$i$NCM$KFI$_BX$($i$l$^$9$,(B, $B$3$3$G$O$=$N$h$&$K$J$i$J$$$3$H(B
$B$KCm0U$,I,MW$G$9(B.


\subsection{PostScript $B=PNO%U%!%$%kL>$r(B {\ttfamily dcl.ps} $B0J30$KJQ$($?$$$N$G$9$,(B.}

SWPACK $B$NFbItJQ?t(B {\ttfamily FNAME} $B$r@_Dj$9$k$HJQ$o$j$^$9(B. $BNc$((B
$B$P(B, $B%W%m%0%i%`$G(B
\begin{verbatim}
CALL SWCSET('FNAME', 'foo') 
\end{verbatim}

$B$H$9$k$H(B, PostScript $B=PNO%U%!%$%kL>$O(B {\ttfamily foo.ps} $B$K$J$j$^(B
$B$9(B. $B$^$?(B, X Window $B%7%9%F%`$K$*$1$k$N%&%#%s%I%&%@%s%W$7$?%U%!(B
$B%$%kL>$O(B {\ttfamily foo.xwd} $B$K$J$j$^$9(B. $B>\$7$/$O(B GRPH1 $B$N%^%K%e(B
$B%"%k$N(B 7.8.1 $B@a$r;2>H$7$F2<$5$$(B.($B$^$?(B, \ref{swcset} {(SWCSET)}$B$b;29M$K$J$k$G$7$g$&(B.)


\subsection{$B%3!<%J!<$N%^!<%/(B($B($(B)$B$r>C$7$?$$$N$G$9$,(B.\label{cornermark}}

SGPACK $B$NFbItJQ?t(B {\ttfamily LCORNER} $B$r(B {\ttfamily .FALSE.} $B$K$9$k$H%3!<%J!<(B
$B%^!<%/$OIA$+$l$^$;$s(B;
\begin{verbatim}
CALL SGLSET('LCORNER', .FALSE.)
\end{verbatim}

$B$^$?(B, $B%3!<%J!<%^!<%/IU$-$GIA$+$l$?(B PostScript $B$N?^$+$i%3!<%J!<(B
$B%^!<%/$r=|5n$9$k%D!<%k$H$7$F(B {\ttfamily dclpsrmcm} $B$,$"$j$^$9(B.

$B0x$_$K(B dcl-5.3 $B$+$i$O5,DjCM$H$7$F(B {\ttfamily LCORNER} $B$NCM$,(B
{\ttfamily .FALSE.} $B$H$J$C$F$$$k$?$a(B, $B%3!<%J!<%^!<%/$OIA$+$l$^$;$s(B.


\subsection{$B%U%)%s%H$rJQ$($?$$$N$G$9$,(B.}

SGPACK $B$NFbItJQ?t(B {\ttfamily IFONT} $B$r(B 2 $B$K$9$k$H(B, $B9bIJ0L%U%)%s%H$r;H(B
$BMQ$9$k$3$H$,$G$-$^$9(B.
\begin{verbatim}
CALL SGISET('IFONT', 2)
\end{verbatim}

$B$?$@$7(B, $B=PNO7k2L$N%U%!%$%k$N%5%$%:$,>/$7Bg$-$/$J$j$^$9(B.

PostScript $B$N?^$N>l9g(B, {\ttfamily dclpsfont} $B$r;HMQ$9$l$P(B
Times-Roman $B$d(B Helvetica, Courier $B$J$I$N(B PostScript $B%U%)%s%H$r(B
$B;HMQ$9$k$3$H$,$G$-$^$9(B. $B5-9f$O0lIt$r=|$$$F(B PostScript $B%Y%/%H%k(B
$B>pJs$KJQ49$5$l$^$9(B.


\subsection{$B:BI8<4$NB@$5$d?'$rJQ$($?$$$N$G$9$,(B.}

U{[}XYZ]PACK $B$G:BI8<4$rIA$$$F$$$k$$$k>l9g(B, $B:BI8<4$N%i%$%s!&%$%s(B
$B%G%/%9(B($B@~$NB@$5$d?'$J$I$NB0@-(B) $B$O(B, $BFbItJQ?t(B {\ttfamily INDEXT0},
{\ttfamily INDEXT1}, {\ttfamily INDEXT2} $B$K$h$C$F4IM}$5$l$F$$$^$9(B. $B$3$N$&$A(B,
$B%Q%C%1!<%8$G$KMQ$$$i$l$$$k$N$O(B{\ttfamily INDEXT1} $B$H(B {\ttfamily INDEXT2}$B$G$9(B.
\begin{itemize}
\item {\ttfamily INDEXT1}$B$O>.$5$a$NL\@9!$%i%Y%k!$%?%$%H%k$rIA$/$H$-(B($B%G%U%)%k%H$O(B 1)
\item {\ttfamily INDEXT2}$B$OBg$-$a$NL\@9!$%i%Y%k!$%?%$%H%k$rIA$/$H$-(B($B%G%U%)%k%H$O(B 3)
\end{itemize}

$B$H$J$C$F$$$^$9$N$G(B, $BNc$($P%W%m%0%i%`Cf$G(B
\begin{verbatim}
CALL UZISET('INDEXT1', 44)
CALL UZISET('INDEXT2', 29)
\end{verbatim}

$B$H$9$k$3$H$K$h$j:BI8<4$OB@$/$J$j(B, $B<4$HBg$-$$9o$_$O@V$K(B, $B>.$5$$(B
$B9o$_$O@D$K$J$j$^$9(B. $B>\$7$/$O(B GRPH2 $B%^%K%e%"%k$N(B U{[}XYZ]PACK $B$N(B
$B>O$N!X(BLLA $B$K$*$1$kB0@-$N;XDjJ}K!!Y$*$h$S(B UZpGET/UZpSET $B$N%Q%i(B
$B%a!<%?!<$N@bL@$N9`$r;2>H$7$F$/$@$5$$(B.


\subsection{$B%0%i%U$,%S%e!<%]!<%H$r$O$_=P$F$7$^$$$^$9(B.}

\begin{verbatim}
CALL SGLSET('LCLIP', .TRUE.)
\end{verbatim}

$B$N$h$&$K$7$F(B, SGPACK $B$NFbItJQ?t(B {\ttfamily LCLIP} $B$r(B {\ttfamily .TRUE.} $B$K$9(B
$B$k$H(B, $B$=$l0J9_$NIA2hL?NaA4$F$KBP$7$F%/%j%C%T%s%0$,9T$J$o$l(B,
$B%S%e!<%]!<%H$+$i$O$_=P$7$?ItJ,$OIA$+$l$J$/$J$j$^$9(B. $B%/%j%C%T%s(B
$B%0$rESCf$G;_$a$?$$>l9g$K$O0J2<$N$h$&$K$7$^$9(B.
\begin{verbatim}
CALL SGLSET('LCLIP', .FALSE.)
\end{verbatim}



\subsection{$B%]!<%i!<%9%F%l%*$,1_$+$i$O$_=P$7$F;M3Q$/IA2h$5$l$F$7$^$$$^$9(B.}

$B%]!<%i!<%9%F%l%*$K0M$i$:(B, $B$$$:$l$+$NCO?^Ej1F$r(B {\ttfamily SGSTRN} $B0?(B
$B$O(B {\ttfamily GRSTRN} $B$K$h$C$F;XDj$7$F$$$k;~$K(B, $B$"$k0^EY!&7PEY$NHO0O(B
$B$G%/%j%C%T%s%0$r$9$k$K$O(B
\begin{verbatim}
CALL SGSTXY($B@>C<7PEY(B, $BElC<7PEY(B, $BFnC<0^EY(B, $BKLC<0^EY(B)
\end{verbatim}

$B$H;XDj$7$^$9(B. $B%]!<%i!<%9%F%l%*$N>l9g$K$O1_7A$K%/%j%C%T%s%0$5(B
$B$l$^$9(B.

$B0x$_$K(B {\ttfamily SGSTXY} $B$K4X$9$k5-=R$O%^%K%e%"%k$K$"$j$^$;$s(B. $B<!4|(B
$B2~D{$G$O5-:\$5$l$k$3$H$G$7$g$&(B.

$B;29M$^$G$K%5%s%W%k%W%m%0%i%`$rE:IU$7$^$9(B.
\begin{verbatim}
      PROGRAM TEST

      CALL GROPN(1)                          ! $B2hLL$K=PNO(B
      CALL GRFRM
   
      CALL GRSVPT(0.2, 0.8, 0.2, 0.8)
      CALL GRSTRN(31)
      CALL UMSCWD(90.0, 90.0, 75.0)          ! $B1_7A$N%&%#%s%I%&$r@_Dj(B
      CALL SGSTXY(-180.0, 180.0, 15.0, 90.0) ! $BIA2hHO0O$r;XDj(B
      CALL UMPFIT
      CALL GRSTRF

      CALL SGLSET('LCLIP', .TRUE.)
      CALL UMPMAP('coast_world')
      CALL UMPGLB                            ! $B0^7P@~$HCO5e$NNX3T$rIA$/(B
      CALL GRCLS

      STOP
      END ! PROGRAM TEST
\end{verbatim}



\subsection{$B%]!<%H%l!<%H(B($B=DJ}8~(B)$B$K=PNO$7$?$$$N$G$9$,(B.}

{\ttfamily SGOPN} $B$"$k$$$O(B {\ttfamily GROPN} $B$G?^7A=PNOAuCV$r%*!<%W%s$9$k(B
$B$H$-(B, $BIi$NCM$rF~NO$9$l$P2hLL$r=DD9$K;H$&$h$&$K;XDj$G$-$^$9(B.

$B4{$K=PNO$7$F$7$^$C$?(B PostScript $B$N?^$O(B {\ttfamily dclpsrot} $B$rMQ$$$k$3(B
$B$H$K$h$j(B, $BA4BN$r(B90$BEY2sE>$5$;$k$3$H$,$G$-$^$9(B. ETC $B%^%K%e%"%k$N(B
$BBh(B 3 $B>O$K$O(B, {\ttfamily sgksrot} $B$rMQ$$$F(B PostScript $B$N?^$r(B LaTeX $B$K(B
$BAH$_9~$`J}K!$,5-$5$l$F$$$^$9(B.

{\ttfamily sgksrot} $B$O4{$K(B obsolete $B$J$N$G(B, {\ttfamily dclpsrot} $B$HFI$_BX$($F(B
$BD:$1$l$PLdBj$"$j$^$;$s$,(B, $B<!$N%^%K%e%"%k2~D{$G$O=$@5$5$l$F$$$k(B
$B$3$H$G$7$g$&(B.


\subsection{Bourne shell $B7O$N%7%'%k$G$O(B, $B4D6-JQ?t$G(B DCL $BFbItJQ?t$r;XDj$G$-$J$$$N$G$9$,(B.}

sh $B7O$N%7%'%k$O(B ":"$B$,1i;;;R$H$7$FMQ$$$i$l$k$?$a(B, DCL $BFbItJQ?t$r(B
$BNc$($P(B
\begin{verbatim}
  $ export SW:IHEIGHT=480
\end{verbatim}

$B$N$h$&$K@_Dj$9$k$3$H$,$G$-$^$;$s(B. $B$=$3$G(B
\begin{verbatim}
  $ export DCLENVCHAR=_
  $ export SW_IHEIGHT=480
\end{verbatim}

$B$N$h$&$K4D6-JQ?t(B DCLENVCHAR $B$r@_Dj$7(B, $B30It$+$i%Q%C%1!<%8L>$HFbIt(B
$BJQ?tL>$N%;%Q%l!<%?$rJQ99$9$k$3$H$K$h$C$F(B, $BFbItJQ?t$NCM$r4D6-JQ?t(B
$B$K$h$C$F;XDj$G$-$k$h$&$K$J$j$^$9(B.


\subsection{$B%3%^%s%I%i%$%s%*%W%7%g%s$GFbItJQ?t$r;XDj$G$-$^$;$s(B.}

$B$*;H$$$N(BFortran$B%3%s%Q%$%i$K%5!<%S%94X?t(B {\ttfamily GETARG()} $B$H(B
{\ttfamily IARGC()} $B$,MQ0U$5$l$F$$$J$$$+$i$@$H;W$$$^$9(B. $B4IM}<T$KAjCL$5(B
$B$l$k$3$H$r$*>)$aCW$7$^$9(B.


\subsection{{\ttfamily SWCSET} $B$G%+%i!<%^%C%W$d=PNO%U%!%$%kL>$,JQ99$G$-$^$;$s(B.\label{swcset}}

$B4X?t(B {\ttfamily SWCSET}$B$,(B {\ttfamily SGOPN} $B0?$O(B {\ttfamily GROPN} $B$N8e$G8F$P$l$F$$$^(B
$B$;$s$+(B? $B%+%i!<%^%C%W(B($B5,DjCM$O(Bcolormap\_01.x11)$B$d=PNO%U%!%$%kL>(B($B5,(B
$BDjCM$O(Bdcl.ps)$B$O(B {\ttfamily SGOPN} $B0?$O(B {\ttfamily GROPN} $B$+$i8F$P$l$k4X?t(B
{\ttfamily SWDOPN} $BFb$G3NDj$5$l$^$9(B. $B$7$?$,$C$F(B, $B%W%m%0%i%`Fb$G%+%i!<%^%C(B
$B%W$d=PNO%U%!%$%kL>$rJQ99$7$?$$>l9g$K$O(B, {\ttfamily SGOPN} $B0?$O(B
{\ttfamily GROPN} $B$NA0$G(B {\ttfamily SWCSET} $B$r8F$P$M$P$J$j$^$;$s(B.


\subsection{math2 $B$N(B FFTPACK $B$OK\Ev$KG$0U$ND9$5$N%G!<%?$K$D$$$F9bB.%U!<%j%(JQ49$,$G$-$k$N$G$9$+(B?}

$B$=$NDL$j$G$9(B. $B$H$$$C$F$b9bB.%U!<%j%(JQ49(B(FFT)$B$H$J$k$N$O(B, $B%G!<%?(B
$BD9$,(B 2$^{n}$$B$d(B
(2$^{i}$)(3$^{j}$)(5$^{k}$)$B$N$h$&$J>l9g$N;~$G(B,
$B%G!<%?D9$,AG?t$N>l9g$K$OC1$J$k%G%8%?%k%U!<%j%(JQ49$H$J$j$^$9(B. $B;~(B
$B7ONs2r@O$G%G!<%??t$,B?$$>l9g$K$O(B, $B:G=i0?$O:G8e$N%G!<%?$r(B1$B8D$d(B2$B8D(B
$B:o$C$?$H$3$m$G7k2L$,Bg$-$/JQ$o$k$3$H$O$"$j$^$;$s$+$i(B, $B$&$^$/Ls?t(B
$B$NB?$$%G!<%??t$KD4@a$7$F$"$2$k$H7W;;B.EY$N8~>e$K7R$,$k$G$7$g$&(B.


\subsection{UDPACK$B$GEy9b@~$rIA$$$?$H$-$K(B, $B%3%s%?!<%i%Y%k$,?^Cf$K$^$C$?$/I=<($5$l$J$$$3$H$,$"$j$^$9(B}

UDPACK $B$GIA$+$l$k%i%Y%kIU$-$NEyCM@~$O(B, GRPH1 $B$N(B SGpGET/SGpSET $B$,(B
$B4IM}$9$kFbItJQ?t(B 'LCHAR' $B$r(B .TRUE. $B$K@_Dj$7$F!$<B:]$K$O@~J,$rIA(B
$B$/2<0L%k!<%A%s$K$h$C$FIA$+$l$F$^$9(B. $B%i%Y%kIU$-@~J,$NIA2h$K$*$$$F(B, 
$B%i%Y%k$rIU$1$k$+IU$1$J$$$+$K1F6A$9$kFbItJQ?t$O0J2<$NDL$j$G$9(B. 
$B$3$l$i$NFbItJQ?t$rE,59D4@a$9$k$HEyCM@~$N%i%Y%k$,I=<($5$l$k$h$&$K(B
$B$J$j$^$9(B.
\begin{table}[tbp]
\begin{center}
\begin{tabular}{l|p{10cm}|l}
\hline
$BFbItJQ?t(B &  $B@bL@(B &  $B5,DjCM(B \\ 
\hline
FWC & $BJ8;zNs$rIA$/$?$a$N6uGr0h$NI}$rA4J8;zI}$rC10L$H$7$F$I$l$@$1$H$k$+$r;XDj$9$k78?t(B & 1.25 \\ 
\hline
CWL & 1$B%5%$%/%k$"$?$j!$@~J,ItJ,$ND9$5$rJ8;z9b$rC10L$H$7$F2?J8;zJ,$H$k$+$r;XDj$9$k78?t(B & 30.0 \\ 
\hline
LBUFF & $B@^@~$N=*$o$j$,J8;zNs$rIA$/$Y$-6uGrItJ,$G$"$k$H$-(B, $B$=$3$r@~J,$G7k$V$?$a$N%P%C%U%!%j%s%0$r$9$k$+$I$&$+$r;XDj$9$k(B. .TRUE.$B$N;~$K%P%C%U%!%j%s%0$r9T$$(B, .FALSE. $B$N;~$K$O$7$J$$(B & .TRUE. \\ 
\hline
NBUFF & $B%P%C%U%!%j%s%0$r$9$k$H$-$=$ND9$5$r;XDj$9$k(B & 20 \\ 
\hline
LCURV & $B@^@~$N$J$93Q$,Bg$-$J$H$3$m$J$I$G$O%i%Y%k$r=q$+$J$$$3$H$r;XDj$9$k(B. $B@53N$K$O(B, LCURV $B$,(B .TRUE. $B$G(B, $B$+$DJ8;z$r=q$/$Y$-%9%Z!<%9$,<!$N%Q%i%a%?(B RCURV $B$N78?t0J2<$N$H$-%i%Y%k$r=q$+$J$$(B..FALSE. $B$N;~$K$O%i%Y%k$r=q$/(B & .TRUE. \\ 
\hline
RCURV & LCURV $B$,(B .TRUE. $B$G(B, $B$+$DJ8;z$r=q$/$Y$-%9%Z!<%9$,<!$N%Q%i%a%?(B RCURV $B$N78?t0J2<$N$H$-%i%Y%k$r=q$+$J$$(B. & 1.0 \\ 
\hline
\end{tabular}
\end{center}
\end{table}



\subsection{UETONE $B$G$Y$?EI$j$r$9$k$H;03Q7A$NGrH4$-$,H/@8$9$k$s$G$9$,(B.}

$B$3$l$O(B src/grph2/uepack/uearea.f $B$NIT6q9g$N$h$&$G$9$,(B, dcl-5.3$B0J(B
$B9_$G$O=$@5$5$l$F$$$^$9(B.


\subsection{$BEyCM@~?^$G(B, $B2#<4$N%?%$%H%k$,EyCM@~4V3V$N%a%C%;!<%8$h$j$b2<$KIA$+$l$F$7$^$$$^$9(B.}

$BEyCM@~4V3V$N%a%C%;!<%8$H%?%$%H%k$NN>J}$H$bIA$/>l9g$K$O(B, $B:BI8<4(B
$B"*EyCM@~$N=g$KIA$/$H%?%$%H%k$,>e(B, $BEyCM@~4V3V$N%a%C%;!<%8$,2<$K(B
$B$J$j$^$9(B.

UDPACK $B$,IA$/%3%s%?!<4V3V$K4X$9$k%a%C%;!<%8$O(B, $B$=$N$H$-$N:BI8<4(B
$B>pJs(B($B$b$C$H$b30$^$GJ8;z$,IA$+$l$F$$$k0LCV(B; $B6qBNE*$K$O(B {\ttfamily UZRGET} 
$B$N4IM}$9$kFbItJQ?t(B'ROFFXB')$B$r%+%s%K%s%0$7$FIA$+$l$^$9(B. $B$=$7$F%a%C(B
$B%;!<%8$rIA$$$?$"$H(B, $B$=$N>pJs$O$h$j30B&$N0LCV>pJs$KCV$-49$o$j$^$9(B.

$B$=$N$?$a(B, $B<!$K:BI8<4$rIA$3$&$H$9$k$H%?%$%H%k$,%a%C%;!<%8$h$j2<$K(B
$BIA$+$l$k$3$H$K$J$j$^$9(B. 

$B$3$&$$$&$H$-$K$O(B, $B$"$k>uBV$N:BI8<4>pJs$r3P$($k%k!<%A%s(B {\ttfamily UZPSAV} 
$B$rE,Ev$J%?%$%_%s%0(B($B:BI8<4$rIA$/A0(B)$B$K8F$s$G$*$$$F(B, $B%a%C%;!<%8$rIA(B
$B$$$?$"$H$G(B {\ttfamily UZPRST} $B$r;H$C$F(B {\ttfamily UZPSAV} $B$r8F$s$@>uBV$KLa$7$F(B
$B$d$l$P$$$$$+$H;W$$$^$9(B.


\subsection{$BEyCM@~?^$G(B, $BEyCM@~$N%i%Y%k$NM-8z7e?t$r(B 3 $B7e$+$iJQ99$7$?$$$N$G$9$,(B.}

{\ttfamily UDCNTR} $B$r8F$VA0$K(B, {\ttfamily UDSFMT} $B$rMQ$$$k$HEy9b@~%i%Y%k$N%U%)!<(B
$B%^%C%H$r;XDj$9$k$3$H$,$G$-$^$9(B. $BNc$($P@0?t(B4$B7e$N>l9g(B, 
\begin{verbatim}
        CALL UDSFMT('(i4)')
\end{verbatim}

$B$H$7$^$9(B.

$B%U%)!<%^%C%H$K$D$$$F$N>\:Y$O!V(BMISC1$B!W%^%K%e%"%k$N(B FMTLIB $B$r;2>H(B
$B$7$F$/$@$5$$(B.


\subsection{$BCO?^Ej1F$G(B, $B%S%e!<%]!<%H$rJQ$($F$bCO?^$N=D2#Hf$,JQ$o$j$^$;$s(B.}

$BCO?^>e$NIA2h$r$9$k>l9g$K$O=D2#Hf$,Ej1FJ}K!$K$h$C$F<+F0E*$K7hDj$5(B
$B$l$^$9$N$G(B, $B<+J,$,Dj$a$?=D2#Hf$r;}$D2>A[2hLL$KIA$/$3$H$O$G$-$^$;(B
$B$s(B.

$B$^$?(B, $B=D2#Hf$,<+F0E*$K7hDj$5$l$k$3$H$+$i(B, $B;XDj$7$?%S%e!<%]!<%HFb(B
$B$KCO?^$,$*$5$^$i$J$$>l9g$b$"$j$^$9(B. $B$=$N>l9g$O(B, 
\begin{verbatim}
        CALL GLRGET('rundef', rundef)
        CALL GRSVPT(vxmin, vxmax, rundef, rundef)
\end{verbatim}

$B$H(B x $BJ}8~$N%S%e!<%]!<%H$r;XDj$7(B, y $BJ}8~$N%S%e!<%]!<%H$r<+F07hDj(B
$B$5$;$k$H%S%e!<%]!<%H$K$*$5$^$j$^$9(B.


\subsection{$BA09`$N$h$&$K%S%e!<%]!<%H$N(B y$B:BI8$rITDj$K$7$?$H$-(B, $B<B:]$K;H$o$l$k(B {\ttfamily vymin}, {\ttfamily vymax} $B$NCM$r<hF@$7$?$$$N$G$9$,(B, {\ttfamily sgrget('vymin', vymin)}$B$G$O<hF@$G$-$^$;$s(B.}

{\ttfamily GRSTRF} $B$r8F$s$@8e$G(B
\begin{verbatim}
        CALL SGQVPT(vxmin, vxmax, vymin, vymax)
\end{verbatim}

$B$H$9$k$H(B, $B%S%e!<%]!<%H$N;M6y$N:BI8$r<hF@$9$k$3$H$,=PMh$^$9(B(GRPH1
$B%^%K%e%"%k(B 2.5.1 SGSVPT $B;2>H(B).


\subsection{$B%Y%/%H%k?^$G(B, $BCO?^$rIA$$$?8e$K%f%K%C%H%Y%/%H%k$,I=<($5$l$^$;$s(B.}

$B%S%e!<%]!<%H$N30$KCO?^$rIA$+$J$$$?$a$K(B, $B%/%j%C%T%s%0$r@_Dj$7$F$$(B
$B$^$;$s$+(B. $BCO?^$rIA$$$?8e$O(B, $B%/%j%C%T%s%0$r@_Dj2r=|$7$F$*$-$^$7$g(B
$B$&(B.
\begin{verbatim}
        CALL SGLSET('LCLIP', .TRUE.)
        CALL UMPMAP('coast_world')
        CALL SGLSET('LCLIP', .FALSE.)
\end{verbatim}



\subsection{$B3$4_@~$rIA$/$@$1$G$J$/(B, $BN&COItJ,$rFCDj$N?'$GEI$j$?$$$N$G$9$,(B.}

dcl-5.3 $B0J9_$G$O@5<0$KN&COItJ,$rFCDj$N?'$"$k$$$O%Q%?!<%s$GEI$k%k!<(B
$B%A%s$rF3F~CW$7$^$7$?(B. $BN&COEI$jDY$7$K$O%5%V%k!<%A%s(B {\ttfamily UMFMAP}
$B$rMQ$$$^$9(B. $B;H$$J}$O3$4_@~$rIA$/(B {\ttfamily UMPMAP} $B$HF1$8$G(B, $B0z?t$H$7(B
$B$F3$4_@~%G!<%?$N%U%!%$%kL>$r;XDj$7$^$9(B. $BEI$jDY$7$N?'$d%Q%?!<%s$r(B
$BJQ99$7$?$$>l9g$K$O(B,
\begin{verbatim}
        CALL UMISET('IPATLAND', 2999)
\end{verbatim}

$B$H$7$^$9(B. $B$3$l$O?'$,@V(B($B?'HV9f(B2)$B$N$Y$?EI$j(B($B%Q%?!<%sHV9f(B999)$B$K@_Dj(B
$B$9$kJ}K!$G$9(B. $B$^$?8P$rN&CO$H$OJL$N?'$GEI$j$?$$>l9g$K$O(B,
\begin{verbatim}
        CALL UMLSET('LFILLAKE', .TRUE.)
        CALL UMISET('IPATLAKE', 2999)
\end{verbatim}

$B$H$7$^$9(B. $B>e5-(B3$B$D$NFbItJQ?t$N5,DjCM$O0J2<$NDL$j$G$9(B.
\begin{verbatim}
          IPATLAND : 1999    : $B9u$N$Y$?EI$j(B
          IPATLAKE : 9999    : $B%7%"%s$N$Y$?EI$j(B
          LFILLAKE : .false. : $B8P$OEI$j$D$V$5$J$$(B
\end{verbatim}


$B>0(B, $B$3$N$Y$?EI$j$KBP1~$7$?3$4_@~%G!<%?$O8=:_$^$G$N$H$3$m(B,
\begin{quotation}
coast\_world\\ 
coast\_japan
\end{quotation}

$B$N$_$G$9(B. $B$^$?(B Fortran90 $BHG(B DCL $B$K$O$^$@F3F~$5$l$F$*$j$^$;$s(B.


\subsection{$B3$4_@~$rIA$/$h$&$K(B, $BCf9q$N>J6-$,IA$-$?$$$N$G$9$,(B.}

DCL$B$N%Q%C%1!<%8$K$O9q6-(B(border\_world), $B%"%a%j%+$N=#6-3&(B
(state\_usa), $BF|K\$N8)6-(B(pref\_japan), $BBgN&$N%W%l!<%H6-3&(B
(plate\_world)$B$N%G!<%?$,FbJq$5$l$F$*$j$^$9(B. $B$3$l$i$O(B, $B3$4_@~%G!<(B
$B%?$b4^$a$F(B, Fortran$B%P%$%J%j%G!<%?$G$9$,(B, $B$b$H$b$H$N%G!<%?$O(B
ASCII $B7A<0$G0J2<$N$h$&$J0^EY!&7PEY$NJB$S$K$J$C$F$$$^$9(B.
\begin{verbatim}
       N       I  maxLAT  minLAT  maxLON  minLON
 LAT0001 LON0001 LAT0002 LON0002 LAT0003 LON0003 LAT0004 LON0004 LAT0005 LON0005
 LAT0006 LON0006 ....
     .....                       LAT_N/2 LON_N/2
\end{verbatim}

$B$3$3$G(B N $B$O%G!<%?$N8D?t(B($BCOE@?t!_(B2), I $B$O%G!<%?$N%$%s%G%/%9CM$G$9(B
$B$G$O(B, I=1 $B$,3$4_@~(B, I=2 $B$,8P4_@~$rI=$9$H$7$F$*$j$^$9(B. maxLAT,
minLAT, maxLON, minLON $B$O%;%0%a%s%H$NKLC<0^EY(B, $BFnC<0^EY(B, $BElC<7P(B
$BEY(B, $B@>C<7PEY$rI=$7$^$9(B. $B%G!<%?$O(B($B0^EY(B, $B7PEY(B)$B$NAH$,7+$jJV$5$l(B, $B3F(B
$B9T$K(B5$BE@J,(B(10$B8D$N%G!<%?(B)$B$,<}$a$i$l$F$$$^$9(B. $B8@$&$^$G$b$"$j$^$;$s(B
$B$,(B, (LAT0001,LON0001)$B!A(B(LAT\_N/2,LON\_N/2)$B$OO"B3$7$?@^@~$G$J$1$l$P(B
$B$J$j$^$;$s(B. $B=>$C$FJ#?t$N@^@~$N=89g$H$7$F%G!<%?$r9=@.$9$k>l9g$K$O(B
($B$3$l$,0lHLE*$G$9$,(B), $B>e$N$h$&$J%G!<%?$N2t$,J#?tO"B3$7$?$b$N$H$J(B
$B$j$^$9(B. $B0^EY!&7PEY$N%G!<%?$O(B Fortran $B$N(BF$B7?=q<0;XDj$G(B '(F8.3)' $B$G(B
$B=q$+$l$F$$$^$9(B. $B$3$N$h$&$J7A<0$N%G!<%?$r=`Hw$7$?8e$K(B, $B%Q%C%1!<%8(B
$B$N(B src/env1/mapdata/ $B0J2<$K$"$k(B cvmapd $B$H$$$&%3%^%s%I$rMQ$$$F(B,
\begin{verbatim}
        % echo province_china.asc province_china | ./cvmapd
\end{verbatim}

$B$H$9$k$3$H$K$h$j(B, province\_china $B$H$$$&%P%$%J%j%G!<%?$,$G$-$^$9(B
$B$N$G(B, $B$3$N%G!<%?$r(B {\ttfamily UMPMAP} $B$KEO$7$F$"$2$l$P(B, $BCf9q$N>J6-$rIA(B
$B$/$3$H$,$G$-$^$9(B. 

$B3$4_@~$N$h$&$KEI$jDY$7$r9T$($k%G!<%?$K$9$k$?$a$K$O(B, $B>e$N0l2t$N%G!<(B
$B%?$NJB$S$OG$0U$N@^@~$KBP$9$k$b$N$G$O$J$/(B, $B0lI.=q$-$H$J$C$?3$4_@~(B
$B$"$k$$$O6-3&@~$KBP$9$k$b$N$H$J$j$^$9(B. $B$^$?JD$8$?3$4_@~!&6-3&@~$O(B
$BH?;~7W2s$j$KC)$i$M$P$J$j$^$;$s(B. $BC"$7(B N $B$N:GBgCM$OEI$jDY$7$r9T$&(B
$B%k!<%A%s$NET9g$G(B 16384 $B$H$J$C$F$$$^$9(B.


\subsection{dcl-5.2$B0?$O$=$l0JA0$N%P!<%8%g%s$+$i(Bdcl-5.3$B$K99?7$7$?$i%+%i!<%^%C%W$,;H$($J$/$J$j$^$7$?(B.}

dcl-5.3 $B$h$j%+%i!<%^%C%W$N;2>HJ}K!$N;EMMJQ99$,$J$5$l$^$7$?(B. $B$3$l(B
$B$^$G$O(B
\begin{verbatim}
        ./colormap.x11
        DUPATH/colormap.x11
        DSPATH/colormap.x11
\end{verbatim}

$B$N=gHV$KD>@\%+%i!<%^%C%W%U%!%$%k(B colormap.x11 $B$rC5$7$K$$$C$F$$$^(B
$B$7$?$,(B, dcl-5.3 $B$+$i$O(B, $B$^$:(B
\begin{verbatim}
        ./cmaplist
        DUPATH/cmaplist
        DSPATH/cmaplist
\end{verbatim}

$B$N=gHV$KJ#?t$N%+%i!<%^%C%W%U%!%$%k$,Dj5A$5$l$F$$$k%j%9%H(B
cmaplist $B$rC5:w$7(B, $B<!$K(B SWPACK $B$NFbItJQ?t(B ICLRMAP $B$GDj5A$5$l$F$$(B
$B$kCM$KBP1~$9$k=gHV$N%U%!%$%k$rF1MM$N=gHV$KC5$7$K9T$/$h$&$K$J$j$^(B
$B$7$?(B. $B5,DjCM$G$O(B ICLRMAP=1 $B$J$N$G(B, $BC5:w$9$k%+%i!<%^%C%W%U%!%$%k(B
$B$N5,DjCM$O(B cmaplist $B$N(B1$BHVL\$N%U%!%$%k(B colormap\_01.x11 $B$H$J$j$^$9(B.
$B$3$3$G(B DUPATH $B$O(B DCL $B$N3F<o%G!<%?$rJ]B8$7$F$*$/%f!<%6MQ$N%Q%9L>(B,
DSPATH $B$O$=$l$i$N%*%j%8%J%k$,%$%s%9%H!<%k$5$l$F$$$k%Q%9L>$rI=$7(B
$B$^$9(B. dcldbs $B%3%^%s%I$G(B DSPATH $B$N3NG'$r$9$k$3$H$,$G$-$^$9(B.

dcl-5.2 $B0JA0$^$G$N$h$&$K<+J,$N:n@.$7$?%+%i!<%^%C%W%U%!%$%k(B
(mycolormap.x11) $B$rFI$^$;$?$$>l9g$K$O(B, DUPATH$B$"$k$$$O%+%l%s%H%G%#(B
$B%l%/%H%j$K(B
\begin{verbatim}
        1
        mycolormap My_Original_ColorMap
\end{verbatim}

$B$H$$$&(B cmaplist $B$rCV$/$@$1$G<B8=$G$-$^$9(B. cmaplist $B$N(B 1$B9TL\$O%G!<(B
$B%?$N8D?t(B, 2$B9TL\0J9_$O%U%!%$%kL>(B, $B%3%a%s%H$NAH$r5-:\$7$^$9(B.


\subsection{$B1tD>&R:BI87O$N?tCM%b%G%k$N7W;;7k2L$rMQ$$$F1tD>CGLL?^$rIA$-$?$$$N$G$9$,(B.}

dcl-5.3.1 $B0J9_$N%P!<%8%g%s$K$O(B, $BKYG7Fb$5$s$K$h$k:BI8JQ49%k!<%A%s(B
$B$N3HD%$,4^$^$l$F$*$j(B, $B$=$l$K$h$j1tD>&R:BI87O$GI=8=$5$l$?$N(B3$B<!85(B
$BJQ?t$N1tD>CGLL?^$r<j7Z$KIA$/$3$H$,$G$-$^$9(B. $B>\:Y$K$D$$$F$O%Q%C%1!<(B
$B%8Fb$N(B README\_itr51 $B$r$4Mw2<$5$$(B. $B%5%s%W%k%W%m%0%i%`$b5-:\$7$F$"(B
$B$j$^$9(B. $B&R:BI87O$NIA2hNc$O%Q%C%1!<%8Fb$N(B IMG\_g2pk02.png $B$G$b$4Mw(B
$BD:$1$^$9(B.


\subsection{DCL$B$G:n@.$7$?(B PostScript $B%U%!%$%k$r(B TeX $BJ8=q$K<h$j9~$`:]$KM>Gr$r<h$j$?$$$N$G$9$,(B.}

$B<g$K(B2$B<oN`$NJ}K!$,$"$k$+$H;W$$$^$9(B. 1$B$D$O(B TeX $BB&$GE,@Z$J(B
BoundingBox $B$r@_Dj$7$F$"$2$k$3$H$G$9(B.
\begin{verbatim}
          \includegraphics*[llx,lly][urx,ury]{file.eps}
\end{verbatim}

$B$H;XDj$9$k$H(B, $B:82<(B (llx,lly) $B$+$i1&>e(B (urx,ury) $B$^$G$NNN0h$r%/%j%C(B
$B%T%s%0$7$F$/$l$^$9(B.

$B>e5-J}K!$O%/%j%C%T%s%0$9$k0LCV$,J,$+$C$F$$$k>l9g$K$O$h$$$N$G$9$,(B,
$BDL>o$O(B gv $B$N$h$&$J(B PostScript Viewer $B$G0LCV$rM=$aD4$Y$F$*$/$+(B,
$B0?$O;n9T:x8m$GE,@Z$J0LCV$rC5$9I,MW$,$"$j$^$9(B. $B$=$3$G(B DCL$B$G$O$*<j(B
$B7Z$KM>Gr$r<h$C$F?7$7$$(B BoundingBox $B$r@_Dj$9$k%9%/%j%W%H(B
dclpsmargin $B$rMQ0U$7$F$*$j$^$9(B. $BM>Gr$O40A4$K>C5n$9$k$o$1$G$O$J$/(B,
$B5,DjCM$G$O?^$ND9JU$N(B 5\% $B$NM>Gr$r;D$9$h$&$K$7$F$"$j$^$9$,(B, -m $B%*(B
$B%W%7%g%s$K$h$j$=$N3d9g$rD4@a$9$k$3$H$b2DG=$G$9(B. $B?^$K%3!<%J!<%^!<(B
$B%/$,B8:_$9$k>l9g$K$O%3!<%J!<%^!<%/$G0O$^$l$?NN0h$K%/%j%C%T%s%0$5(B
$B$l$k$@$1$G$9$+$i(B, $BM=$a%3!<%J!<%^!<%/$r:o=|$7$F$*$/$3$H$,K>$^$7$$(B
$B$G$7$g$&(B. \ref{cornermark} {($B!V%3!<%J!<%^!<%/$r>C$7$?$$!W(B         )} $B$r;2>H2<$5$$(B.


\section{$B=PNO%G%P%$%90MB8$NLdBj(B}


\subsection{$B%O!<%I%U%#%k$r;H$C$?(B PostScript $B%U%!%$%k$,(B PostScript Level 2 $B$N%W%j%s%?$G=PNO$G$-$^$;$s(B}

$B%O!<%I%U%#%k$r;H$C$?$Y$?EI$j$G$O(B, PostScript $B$N(B currentscreen $B%*(B
$B%Z%l!<%?$NJV$jCM$r(B setscreen $B%*%Z%l!<%?$KEO$9$3$H$K$h$j(B, $B$Y$?EI(B
$B$j$N%Q%?!<%s$N@_Dj$r9T$C$F$$$^$9(B. currentscreen $B%*%Z%l!<%?$NJV$j(B
$BCM5Z$S(B, setscreen $B%*%Z%l!<%?$N%*%Z%i%s%I$O8@8l%l%Y%k(B1$B$G$O(B,
\begin{quotation}
{\itshape frequency angle proc\/}
\end{quotation}

$B$@$1$@$C$?$N$KBP$7(B, PostScript $B$N8@8l%l%Y%k(B2 $B$h$j(B
\begin{quotation}
{\itshape frequency angle halftone\/}
\end{quotation}

$B$,DI2C$5$l$^$7$?(B. $B$3$3$G(B frequency $B$O%+%l%s%H!&%f!<%66u4V$NC10L(B
$B$GI=$5$l$?%O!<%U%H!<%s!&%9%/%j!<%s$N%;%k$N(B1$B%$%s%A$"$?$j$N?t(B,
angle $B$O%G%P%$%9:BI87O$KBP$9$k%O!<%U%H!<%s!&%9%/%j!<%s$N2sE>3Q(B
($B=gJ}8~$OH?;~7W2s$j(B), proc $B$O%9%]%C%H4X?t$r5-=R$7$?<jB3$-(B,
halftone $B$O%O!<%U%H!<%s<-=q$rI=$7$^$9(B. currentscreen $B$NJV$jCM$,(B
$B$I$A$i$K$J$k$+$O(B, $B%G%P%$%9$,%5%]!<%H$7$F$$$k(B PostScript $B8@8l%l%Y(B
$B%k$H%O!<%U%H!<%s$NDj5A$NM-L5$K0MB8$7$^$9(B. dcl-5.1 $B0J9_$N%P!<%8%g(B
$B%s$G$O=$@5$5$l$F$$$k$O$:$G$9$,(B, $B0JA0$G$O%9%?%C%/:G>eIt$K$"$k(B
currentscreen $B$NJV$jCM$,<B9T2DG=$J<jB3$-$G$"$k$H2>Dj$7$F(B
\begin{quotation}
{\itshape frequency angle $\{$proc$\}$\/} setscreen
\end{quotation}

$B$H%O!<%U%H!<%s$N@_Dj$r$7$F$$$^$7$?$,(B, $B%W%j%s%?$K$h$C$F$O>e5-(B2$BHV(B
$BL\$N$h$&$K%O!<%U%H!<%s<-=q$,%9%?%C%/:G>eIt$KCV$+$l(B, $B$3$l$,<B9T2D(B
$BG=$G$J$$$,8N$K%(%i!<$,=P$F$*$j$^$7$?(B. dcl-5.1 $B0J9_$G$O(B proc $B$KAj(B
$BEv$9$kItJ,$rB(;~I>2A$5$l$kL>A0(B (//proc) $B$KJQ99$7$F$*$j$^$9$N$G(B,
currentscreen $B$K$h$C$F%O!<%U%H!<%s<-=q$,JV$k%W%j%s%?$G$b%(%i!<$J(B
$B$/=PNO$5$l$k$3$H$H;W$$$^$9(B.

$B%W%j%s%?$K$h$C$F$OCf4VD4$r<+?H$GI=8=$G$-$k$b$N$b$"$j(B, $B$=$N$h$&$J(B
$B%W%j%s%?$G$O0U?^$7$?DL$j$N%H!<%s%Q%?!<%s$,=PNO$5$l$J$$2DG=@-$,$"(B
$B$j$^$9(B. $B$=$N$?$a(B setscreen $B$KJQ$o$kJ}K!$r9M$($J$1$l$P$J$j$^$;$s(B
$B$,(B, $B$^$@<BAu$O$5$l$F$$$^$;$s(B.


\section{$B8@8l!&%W%i%C%H%[!<%`$K$D$$$F(B}


\subsection{DCL $B$r(B Fortran 90 $B$G;H$$$?$$$N$G$9$,(B.}

DCL $B$N(B Fortran90 $B2=%W%m%8%'%/%H$K$h$j(B, $B8=:_$G$O(B FORTRAN77 $BHG(B DCL
$B$N%i%C%Q!<%k!<%A%s$H$7$F$N(B Fortran90 $BHG(B DCL $B$,Ds6!$5$l$F$*$j$^$9(B.
$B>\$7$/$O(B
\begin{quotation}
\ifpdf
\href{http://www.gfd-dennou.org/arch/dcl/dcl-f90/}{http://www.gfd-dennou.org/arch/dcl/dcl-f90/}
\else
\onlynameurl{http://www.gfd-dennou.org/arch/dcl/dcl-f90/}
\fi
\end{quotation}

$B$r;2>H$7$F$/$@$5$$(B

Fortran90$B$NFC@-$r@8$+$7$?%W%m%0%i%_%s%0<jK!$K$h$j=q$-JQ$($k:n6H(B
$B$O$^$@9T$o$l$F$*$j$^$;$s(B.


\subsection{DCL $B$r(B C/C++ $B8@8l$+$i;H$$$?$$$N$G$9$,(B.}

dennou davis $B%W%m%8%'%/%H(B $B$K$h$j(B DCL $B$N(B C $B8@8l%P!<%8%g%s$,0J2<$N(B
URL$B$h$j8x3+$5$l$F$*$j$^$9(B.
\begin{quotation}
\ifpdf
\href{http://www.gfd-dennou.org/arch/dcl/}{http://www.gfd-dennou.org/arch/dcl/}
\else
\onlynameurl{http://www.gfd-dennou.org/arch/dcl/}
\fi
\end{quotation}


$B$"$k$$$O(B, $B$*<j;}$A$N%3%s%Q%$%i$G(B FORTRAN $B%5%V%k!<%A%s$r(B C $B%3%s%Q(B
$B%$%i$+$i8F$VJ}K!$,$"$l$P(B, C$B8@8l$+$i;H$&$3$H$,2DG=$G$9(B. $BNc$($P(B,
f2c $B$NJ}K!$K=>$&$b$N$G$"$l$P(B, 
\begin{itemize}
\item $B4X?tL>$N8e$K(B "{\ttfamily \_}" ($B%"%s%@!<%9%3%"(B) $B$rIU$1$k(B
\item $BJQ?t$OA4$F%"%I%l%9EO$7$K$9$k(B
\item $BB?=EG[Ns$N=gHV$K5$$r$D$1$k(B
\item $BJ8;zNs$rEO$9$H$-$OJ8;zNs$ND9$5$r0z?t$K2C$($k(B
\end{itemize}

$B$J$I$G$9(B. $B>\$7$/$O;38}(B, $B!X(B{\itshape UNIX Super Text ($B2<(B)\/}$B!Y(B,p.337
- 344 $B$d(B Feldman, {\itshape et al.\/}: A  Fortran-to-C Converter,
{\itshape Computing Science Technical Report No.149\/} $B$J$I$r;2>H$7(B
$B$F$/$@$5$$(B.


\subsection{DCL $B$O(B Ruby $B$+$i;H$($^$9$+(B?}

$B%*%V%8%'%/%H;X8~%9%/%j%W%H8@8l$G$"$k(B 

{\em Ruby} {\tt \aaaurl}

$B$N%5%]!<%H$OEEG>(B Ruby $B%W%m%8%'%/%H$K$F9T$o$l$F$*$j$^$9(B. $B>\$7$/$O(B
\begin{quotation}
\ifpdf
\href{http://www.gfd-dennou.org/library/ruby/}{$BEEG>(B Ruby $B%W%m%8%'%/%H(B}
\else
\onlynameurl{$BEEG>(B Ruby $B%W%m%8%'%/%H(B}
\fi
\end{quotation}

$B$r;2>H$7$F$/$@$5$$(B.


\subsection{DCL $B$O(B Perl $B$+$i;H$($^$9$+(B?}

$B@5<0$K%5%]!<%H$5$l$F$$$k$o$1$G$O$"$j$^$;$s$,(B, $BEDCfBYCh$5$s$,:n@.(B
$B$5$l$?(B, DCL $B$r(B Perl $B$+$i;H$&%Q%C%1!<%8$,B8:_$7$^$9(B. $B%Q%C%1!<%8$O(B
\begin{quotation}
\ifpdf
\href{http://www.gfd-dennou.org/arch/dcl/dcl-dvlp/dcl-perl-taichu/SIGEN.htm}{DCL module for perl}
\else
\onlynameurl{DCL module for perl}
\fi
\end{quotation}

$B$+$iF~<j$7$F2<$5$$(B. $B;DG0$J$,$i>\:Y$r5-$7$?%I%-%e%a%s%H$O$"$j$^$;(B
$B$s$,(B, $B;HMQ>e$NCm0U$r4JC1$K5-$7$?(BREADME$B$H%5%s%W%k%9%/%j%W%H$,FbJq(B
$B$5$l$F$*$j$^$9(B.


\subsection{DCL $B$O(B Microsoft Windows(TM)$B$G;H$($^$9$+(B?}

$B!XEEG>%i%$%V%i%j(B Windows $BHG!Y$H$$$&$b$N$,$"$j$^$9(B. $B>\:Y$O(B
\begin{quotation}
\ifpdf
\href{http://www.gfd-dennou.org/arch/dcl/dcl-win/}{http://www.gfd-dennou.org/arch/dcl/dcl-win/}
\else
\onlynameurl{http://www.gfd-dennou.org/arch/dcl/dcl-win/}
\fi
\end{quotation}

$B$r;2>H$7$F2<$5$$(B.


\subsection{DCL $B$O(B Mac OS(TM), Mac OS X(TM)$B$G;H$($^$9$+(B?}

Apple $B<R$,L5NA$GG[I[$7$F$$$k(B MPW (Macintosh Programmer's
Workshop)$B$rMxMQ$7$F%U%j!<$NIA2h4D6-$r9=C[$9$k(B Mac OS $BMQ$N%$%s%9(B
$B%H!<%i(B, $B5Z$SG$0U$N%3%s%Q%$%i$rMxMQ$9$k(B Mac OS X$BMQ%$%s%9%H!<%i$,(B
$B0J2<$N(BURL$B$+$iDs6!$5$l$F$*$j$^$9(B.\\ 
\begin{quotation}
\ifpdf
\href{http://www.geocities.co.jp/SiliconValley-Cupertino/5894/}{http://www.geocities.co.jp/SiliconValley-Cupertino/5894/}
\else
\onlynameurl{http://www.geocities.co.jp/SiliconValley-Cupertino/5894/}
\fi
\end{quotation}


$B$^$?(B, $B>e$N(B Mac OS X $BMQ(B DCL $B$r(B Absoft $B$G;H$&:]$N>pJs$,0J2<$N(BURL$B$G(B
$B8x3+$5$l$F$*$j$^$9(B.\\ 
\begin{quotation}
\ifpdf
\href{http://www.gfd-dennou.org/arch/dcl/dcl-mac/DCLonMac.html}{http://www.gfd-dennou.org/arch/dcl/dcl-mac/DCLonMac.html}
\else
\onlynameurl{http://www.gfd-dennou.org/arch/dcl/dcl-mac/DCLonMac.html}
\fi
\end{quotation}


\end{document}
