
*** 󥹥ȡ (92/05/08)

0. Ϥ

Ǥ, Ǿ饤֥פǾСˤĶ SunOS 4.1.1 +
SunFORTRAN 1.4 θǥ󥹥ȡ뤹ˤĤƽҤ٤. ΥС
ǤϿ޷ΤȤ, Xm (X mono), Xc (X color), PS (Post Script),
Mf (SGKS meta file) 4Ĥ¸Ƥ. ɥƥȤ 
X11R4 󥹥ȡ뤵ƤʤФʤʤ. ޤ Xc 
(X color) ¸ˤϥ顼бε郎ɬפǤ. ˥ץ󥿡
ȤƤ Post Script бΤΤɬפǤ. ʤ X ˴ؤ include 
ե, 饤֥ϥѥä˥ѥ̾ꤷʤƤ⥷ƥ
õˤ椯ɸŪʥǥ쥯ȥˤƤʤФʤʤ. 

ʤ, ۤΥȤ, SunOS 4.0.3 + SunFORTRAN 1.3, SunOS 4.1.2 +
SunFORTRAN 1.4 ȤĶǤư뤳ȤǧƤ. ޤ, 
ɥƥȤ X11R5  Open Windows Ǥưǧ
.

1. ѥ

make ǥѥ뤪ӥ󥹥ȡΤ, ޤѥ򤪤ʤ. 
(ʲ, С4.1򥤥󥹥ȡ뤹Ǥ.)

  % setenv DCLDIR ~/dcl-4.1

Τ褦Ǿ饤֥򤪤Ƥǥ쥯ȥĶѿ DCLDIR 
. δĶѿϸĿͤǥ饤֥꡼ۤ, ѤȤˤ⻲Ȥ
Τ .login ˽񤭹ǤȤ褤.

2. Mkinclude ե

top ǥ쥯ȥ (ʤ cd $DCLDIR ǤϤäȤ)  Mkinclude 
Ȥե뤬äƤĤΥޥ̾Ƥ, $DCLDIR ʲ
 Makefile ǤϤξ include ƻȤäƤ. äդ
٤ޥ̾ȤƼΤΤ.

  BINDIR : dclfrt ʤɤΥޥɤǼǥ쥯ȥ
  LIBDIR : 饤֥ libdcl.a Ǽ뤿Υǥ쥯ȥ
  DBASEDIR : ǡ١ϢΥեǼ뤿Υǥ쥯ȥ
 
Ǿ饤֥򥤥󥹥ȡ뤷褦Ȼפäͤ, ɬ root ˤʤ
櫓ǤϤʤǤ, Υޥ̾ϽǤϤ줾,
$DCLDIR/bin, $DCLDIR/lib, $DCLDIR/lib/dcldbase ȤʤäƤ. 
ƺǽ餫饷ƥԤȤϰۤʤ˥󥹥ȡ뤷褦Ȥ
Ȥ, ʬ񤭴ɬפ.

3. make - ץΥѥ

ޤǽ, top ǥ쥯ȥ (Ĥޤ cd $DCLDIR ǤϤä
)

  % make

Ȥ, ɬפʥѥ뤪ӥǡ١եκ,  
$DCLDIR/bin ǥ쥯ȥˤ륳ޥɤ꤬ʤ. 

  <<<  >>>

顼б X (Xc) ǥեȤǻȤ colormap (env1/colormap 
) , ºݤ˻Ѥ륫顼ߥʥ°ˤä,
named color. ä make Ȥ, ºݤ˻Ȥ
ͤƤ륫顼ߥʥǥ X ư make , 뤤
ϥ顼ߥʥʳ make ⥫顼ߥʥ X 
ư֤, Ķѿ DISPLAY 򥫥顼ߥʥΥۥ̾ꤷ 
make ɬפ.

4. make - 󥹥ȡ

ѥ뤬̵ˤ饤󥹥ȡ򤪤ʤ. 

  % make install

Ȥ, 饤֥ȥǡ١ι, env2 ˤ륢ץꥱ
ץκȤ $DCLDIR/bin ؤΰư, ɬפ˱ 
dclfrt ʤɤΥޥɷ $DCLDIR/bin ؤΰưʤ.

5. ǥץκ

ޤǤɬפʺȤϽäƤΤ,  $DCLDIR/demo ˰ưƥ
ץ.

  % cd $DCLDIR/demo
  % make

make λ, ƥǥ쥯ȥ򲼤äƥǥץ¹ԤƤߤȤ
. եåϤޤΤμ¹ϼỲȤΤ. 

6. 

Ǿ饤֥Ѥˤ dclfrt ޥɤѤ. ϴŪ 
f77 ޥɤƱ, ޤǤˤäƺ줿饤֥򤢤
󥯤褦ˤʤäƤ. ΥޥɤѤ뤿ˤ,
Mkinclude Τʤ BINDIR ǻꤵƤǥ쥯ȥ̾򥷥ѿ 
$path˽񤭲äƤʤФʤʤ.  .cshrc ˽񤭲äƤ
дñǤ. Ȥ test01.f Ȥեåޤ༡Τ褦ʥץ
बäȤ,

      PROGRAM SUPK01
 
      WRITE(6,*) ' WORKSTATION ID (I) ? ;'
      CALL SUPWSN(6)
      READ(5,*) IWS
 
      CALL SGOPN(IWS)
      CALL SGFRM
      CALL SUSVPT(0.1,0.9,0.1,0.9)
      CALL SUSWND(0.0,10.0,0.0,10.0,1)
      CALL SUPWWR(1)
      CALL SUPVPR(1)
      CALL SGTXZU(5.0,5.0,'TEST FOR SUPACK',0.03,0,0,3)
      CALL SGCLS
 
      END

  % dclfrt -o test01 test01.f

ˤä test01 Ȥ¹ԥե뤬. 

  % test01

Ȥ

  WORKSTATION ID (I) ? ;
  1:Xm, 2:Xc, 3:PS, 4:Mf ;

ȤƤ (ơ̾ΥꥹȤ SUPWNS ˤäƽϤƤ
)Τ, X ɥƥबưƤ֤1ޤ2Ϥ
 (Υü2ꤹȥ顼ˤʤ) ɥ. ޥ
򥯥å (ɤΥܥǤ褤) ƾꤷ, ɥǤ
˥åϤ. ڡ, ޷νλ⤹٤ƥå
Ǥʤ.  3 (PS)ꤹ, sgks.ps Ȥե뤬ȥǥ
쥯ȥˤǤΤ

  % lpr sgks.ps

Ȥ Post Script ץ󥿡˽Ϥ. ޤ4 (Mf)ꤹ
sgks.mf Ȥե뤬ȥǥ쥯ȥˤǤΤ env2 Ǻ
pltmf Ȥץ¹Ԥ, ᥿եɤǥեå
ǥХ˽ϤǤ.

7. 

ǥڡ;͵ʤ, ƥȽλθ, 󥹥ȡ˺
줿֥ȥեõ. top ǥ쥯ȥ

       % make clean

ȤѤʥ֥ȥե뤪ӥǥץबõ. 
