$BBh(B26$B2s!!%@%&%s%5%$%8%s%0$O@dL/$J%A!<%`%o!<%/$+$i(B

[($B]

1997$BG/(B3$B7n9f(B UNIX USER$B;o7G:\!V%k!<%HK,Ld5-!W$N2a5n5-;v(B

$BBh(B26$B2s!!%@%&%s%5%$%8%s%0$O@dL/$J%A!<%`%o!<%/$+$i(B

$B:#2s$O_7(B
$B4pOB!J$K$7$6$o(B $B$b$H$+$:!K$5$s$K$*OC$r$*J9$-$7$^$7$?!#$^$?!"(B
KIP$B$N1D6HC4Ev$H$7$FF18&5f=j$K=PF~$j$7$F$$$i$C$7$c$kKL@n>!I'(B
$B!J$-$?$,$o(B $B$+$D$R$3!K$5$s$K$b$*OC$K2C$o$C$F$$$?$@$-$^$7$?!#(B


==========
[$B1s;3(B $B@?$5$s$+$i$N?75,%3%a%s%H(B]  

$B!V%k!<%HK,Ld5-!WBh#2#62s!V%@%&%s%5%$%8%s%0$O@dL/$J%A!<%`%o!<(B
$B%/$+$i!W$G>R2p$7$F$$$?$@$$$?Eve$N$h$&$K%O!<%I4D6-$OG/!9A}6/!&99?7$7$F$*$j$^$9$,!"!V%k!<(B
$B%HK,Ld5-!W$G>R2p$7$^$7$?!V%a%$%s%U%l!<%`$K;w$?%o!<%/%9%F!<%7%g(B
$B%s$N1?MQ4D6-!W$O!";H$$>!J}$NJ}$+$i$*OC$,$*J9$-$G(B
$B$-$k$H$$$&$3$H$GBgJQ4n$s$G$$$^$9!#(B

$B$^$:$O!"%7%9%F%`2J3X8&5f=j$N>R2p$+$i$*4j$$$G$-$^$9$+!#(B

$B1s;3$5$s!J0J2<#T!K!'%7%9%F%`2J3X8&5f=j$O!"4X@>$N7P:QJ=j4I$N8x1WK!?M$H(B
$B$7$F@_N)$5$l$^$7$?!#0JMh!"8x1WK!?M$H$7$F$N5R4QE*;kE@$KN)$A!"(B
$BpJs2=7n4V9T;v$H$7$F!"%7(B
$B%s%]%8%&%`$"$k$$$OE8<(2q$r3+:E$7$F$*$j$^$9!#!G(B95$BG/EY$O!V%$%s(B
$B%?!<%M%C%H$N%S%8%M%9MxMQ!W$HBj$9$k%7%s%]%8%&%`$r!"!G(B96$BG/EY$K(B
$B$O!V(BITS$B$N8=>u$HF08~!W$HBj$9$k%7%s%]%8%&%`$r3+:E$9$k$J$I$H$$$C(B
$B$?3hF0$r9T$C$F$$$^$9!#(B

$B#Y!'o$KBg$-$/$J$k>l9g$,B?$$$?$a!"@N$O%a%$%s%U%l!<%`$G$J$$$H$-$D(B
$B$+$C$?$s$G$9!#(B

$B$?$@!"$=$l$r9XF~$9$k$K$OCMCJ$,Hs>o$K9b$+$C$?$3$H$b$"$j!"(BKIP
$B$N%a%$%s%U%l!<%`$r%j%b!<%H$G;H$&$7$+J}K!$,$"$j$^$;$s$G$7$?!#(B
$BEv=i$O@lMQCe$G9T$C$F$$$?2J3X5;=Q7W;;$r!"%o!<%/(B
$B%9%F!<%7%g%s$KCV$-49$($F$$$/L\E*$b7s$M$F!"!G(B94$BG/$K%5%s$N(B
SPARCstation 5$B%b%G%k(B10$B$rF3F~$7$^$7$?!#MbG/$N!G(B95$BG/$K$O!"F1%o!<(B
$B%/%9%F!<%7%g%s$r%5!<%P!<$K$7$F30It$N%M%C%H%o!<%/$H$N%$%s%?!<(B
$B%M%C%H@\B3$,2DG=$H$J$j$^$7$?!#!G(B96$BG/$K$O%5%s$N(BUltra$B$rF3F~$7(B
$B$F!"8=:_$O$3$A$i$N%^%7%s$r2J3X5;=Q7W;;$J$I$N6HL3MQ$K;H$C$F$$(B
$B$^$9!#(B

$B!!1s3VCO!JBgDE;T!K$K$"$k!"K\8&5f=j$N7;Do2ql=j$ON%$l$F$$$^$9$,!"F1$8%;%0%a%s%HFb$KB0$7$F$*$j!"%M%C%H%o!<(B
$B%/E*$K$OFbIt$K$"$k(B [$BCm#5(B] $B$h$&$K8+$($F$$$^$9!#7k2LE*$K!"$3$N(B
$B%M%C%H%o!<%/>e$G$O9g7W#3Bf$N%o!<%/%9%F!<%7%g%s(B [$BCm#6(B] $B$,;H$o(B
$B$l$F$$$^$9!#(B

$B#Y!'$=$l$i$N%o!<%/%9%F!<%7%g%s$O!"6HL3MQ$H%$%s%?!<%M%C%H$N%5!<(B
$B%P!J}$K;H$o$l$F$$$k$N$G$9$+!#(B

$B@>_7$5$s!J0J2<#N!K!'!VCO0hL$Mh8&5f=j!W$N(BSPARCstation 20$B$O6H(B
$BL3MQ$K$7$+;H$o$l$F$*$i$:!"%$%s%?!<%M%C%H7O$N%5!<%S%9$OK\8&5f(B
$B=j$+$iDs6!$7$F$*$j!"#3Bf$NFbLu$O%$%s%?!<%M%C%H$N%5!<%P!l9g$KHw$($F!"(B
$BF1%^%7%s>e$G$b(BFORTRAN$B$N%3%s%Q%$%i$H1?MQ4D6-!J%D!<%k$J$I!K$O!"(B
$B>o$K;HMQ2DG=$J>uBV$K$7$F$"$j$^$9!#(B

$B#Y!'$=$N$"$?$j$O$9$Y$F@>_7$5$s$,C4Ev$5$l$F$$$k$H$$$&$3$H$G!"(B
$B!V%M%C%H%o!<%/9=C[!"4IM}$H1?MQ$H$$$C$?!"%7%9%F%`4IM}$N6HL3$r(B
$B30It$KG$$;$k!W$H$$$&%9%?%$%k$,3NN)$7$F$$$k$o$1$G$9$M!#(B

$B#T!'FbIt$N8&5f0w$,<+J,$N6HL3$K@lG0$G$-$k$h$&$K!"$3$N%9%?%$%k(B
$B$rMh!"%a%$%s%U%l!<%`$G9T$C$F$$$?6HL3$r%o!<%/(B
$B%9%F!<%7%g%s>e$KCV$-49$($F$$$/$?$a$N:n6H!"%$%s%?!<%M%C%H@\B3(B
$B$N:n6H$d1?MQ$J$I!"$9$Y$F(BKIP$B$5$s$NJ}$K$*4j$$$G$-$?$*$+$2$G!"(B
$B6HL3$NJ}$b$+$J$j%9%`!<%:$K0\9T$G$-$F$$$^$9$7!"%$%s%?!<%M%C%H(B
$B$NJ}$bEE;R%a!<%k$d%[!<%`%Z!<%8$NMxMQ$rCf?4$K!"8&5f=jFb$GBg$$(B
$B$K3hMQ$5$l$F$$$^$9!#(B


$B!v%o!<%/%9%F!<%7%g%s$X$N0\9T$,%9%`!<%:$@$C$?M}M3(B

$B#Y!'@h$[$I1s;3$5$s$,!"!V%a%$%s%U%l!<%`$+$i%o!<%/%9%F!<%7%g%s(B
$B$X$N6HL3$N0\9T$,%9%`!<%:$@$C$?!W$H$*$C$7$c$C$F$$$^$7$?$,!"DL(B
$B>o$O$=$s$J$K$&$^$/$$$+$J$$$H;W$&$N$G$9$,!#(B

$B#N!'$3$l$^$G!"(BKIP$B$N%a%$%s%U%l!<%`$N(BFORTRAN$B$r;H$C$F7W;;=hM}$r(B
$B$7$F$$$?$b$N$r!"?7$7$/%5%s$N%o!<%/%9%F!<%7%g%s>e$N(BFORTRAN77
$B$X0\9T$9$k$3$H$KH<$$!"(B

  (1)OS$B$,JQ$o$k$?$a$KA`:n$,JQ$o$k(B
$B-"(B(2)UNIX$B7O$G$O%f!<%6!<$,;H$$$d$9$$%(%G%#%?$,$"$^$j$J$$(B
$B-#(B(3)$B$3$l$^$G(BJCL [$BCm#7(B] $B$G%8%g%V$N@)8f$r9T$C$F$$$?$,!"(BUNIX$B>e(B
     $B$G$O$3$l$i$N;q8;$,N.MQ$7$K$/$$(B
$B-$(B(4)$B$3$l$^$G;HMQ$7$F$$$?%W%j%s%?$K(BUNIX$B$+$i=PNO$9$k>l9g!"(B
     $B%3%^%s%IF~NO$,JQ$o$C$F;H$$$E$i$$(B

$B$H$$$C$?LdBj$,@8$8$^$7$?!#(B

$B!!$H$/$K(B(3)$B$K$D$$$F$O!"%f!<%6!Aw$J$I$r;H$C$F(BFORTRAN$B$N%=!<%9$d(BJCL$B$J$I$r(B
UNIX$BB&$K$,$"(B
$B$j$^$7$?!#(B

$B!!$3$l$i$NLdBj$r2r7h$7$F$$$/$?$a$NJ}K!$r8!F$$7$?7k2L!"(B

$B-!(B(1)$BA`:n$NJQ99E@!"$H$/$K(BOS$B$N%3%^%s%I$K$D$$$F$O!"1?MQ>e;HMQ(B
     $B$9$k:GDc8B$N$b$N$r$^$H$a$F!"1?MQ%^%K%e%"%k$KIU$12C$($k(B

$B-"(B(2)$B%(%G%#%?$NLdBj$O!"(BPC-NFS$B$rF3F~$7$F(BUNIX$B$N%G%#%9%/$r(BDOS$B$+(B
     $B$i$bD>@\07$($k$h$&$K$7!"(BWindows$B$J$I$+$i%f!<%6!<$,;H$$47(B
     $B$l$?%(%G%#%?(B [$BCm#9(B] $B$r;HMQ$9$k(B

$B-#(B(3)$B%f!<%6!<$O!"(BJCL$B%G!<%?$rB?>/=$@5$7$?2>A[(BJCL$B$r:n@.$7$F!"(B
     $B$=$l$r(BUNIX$BB&$G<+F0JQ49$7$F=hM}$G$-$k;EAH$_!J%3%i%`;2>H!K(B
     $B$r:n$j!"4{B8$N%=!<%9$,;H$($k$h$&$K$9$k(B

  (4)$B%a%$%s%U%l!<%`$+$i;H$C$F$$$?%W%j%s%?$OFCMh$NA`:n4D6-$H$[$\F1$8$b$N$rDs(B
$B6!$G$-$F$$$^$9!#$?$H$($P0u:~7k2L$K$7$F$b!"%a%$%s%U%l!<%`$r;H$C(B
$B$?>l9g$HF1$8$b$N$,F@$i$l$^$9!#$J$I$,$"$l$P$J$k$Y$/BP1~$9$k$h$&$K$7$F$$$^$9!#(B

$B#Y!'!V%f!<%6!<$N;H$$47$l$?A`:n$rB:=E$9$k!W$H$$$&@:?@$K$OC&K9(B
$B$7$^$9!#%f!<%6!<$O!"$3$l$^$G$HF1$8(BPC$B$NA0$K:B$C$F:n6H$r$9$k$o(B
$B$1$G$9$+$i!"%3%s%Q%$%i$,F0$$$F$$$k$N$,%a%$%s%U%l!<%`$J$N$+%o!<(B
$B%/%9%F!<%7%g%s$J$N$+$O!"$=$l$[$I0U<1$9$kI,MW$,$J$$$o$1$G$9$M!#(B

$B#K!'$=$&$G$9!#(BPC$BB&$N(BPC-NFS$B$K$h$C$F(BUNIX$B$N%G%#%9%/$b%m!<%+%k!&(B
$B%G%#%9%/$H$7$F;H$($^$9$7!"%(%G%#%?$b(BPC$B>e$N$b$N$r;H$$$^$9$N$G!"(B
$B$[$H$s$I0cOB46$J$/0\9T$G$-$F$$$^$9!#e$G%a(B
$B%$%s%U%l!<%`$H$[$\F1MM$J(BJCL$B%U%!%$%k$,=q$1$k$3$H$K$O46F0$5$l(B
$B$k(B [$BCm(B11] $B$H;W$$$^$9$h!#(B

$B#Y!'$3$l$^$G%a%$%s%U%l!<%`$N4D6-$rDs6!$7$F$$$i$C$7$c$C$?(BKIP
$B$5$s$,!"%o!<%/%9%F!<%7%g%s$X$N0\9T$bC4Ev$5$l$?$+$i$3$=!"$3$N(B
$B$h$&$J!V%9%`!<%:$J0\9T!W$,$G$-$?$N$G$7$g$&$M!#(B


$B!v%$%s%?!<%M%C%H@\B3$K4X$9$k6lO+OC(B

$B#Y!'%$%s%?!<%M%C%H$K@\B3$5$l$?$N$O!"!G(B95$BG/$G$9$h$M!#(B

$B#N!'$O$$!#%$%s%?!<%M%C%H@\B3$O!"5~ET9bEY5;=Q8&5f=j$H5~ET%=%U(B
$B%H%"%W%j%1!<%7%g%s$,1?MQ$7$F$$$k5~ET(BP-Net$B$H$$$&%W%m%P%$%@$K(B
$B@\B3$7$F$$$^$9!#$$$^$O@lMQ@~$G$9$,!"Ev=i$O(BINS64$B$N@~$r;H$C$F(B
$B$$$^$7$?!#$3$N@~$O!"0JA0$+$iCO0h%7%s%/%?%s%/!&%M%C%H%o!<%/(B
$B!J0J2>pJs%;%s%?!<(B
$B$H$N4V$G;H$C$F$$$?@~$r6&M-$7$F$$$?$N$G$9$,!"#1K\$N@~$G#2/$76lO+$7$F!"7k6IEEOCHV9f$@$1$b$
(B
$B$De$,$C$F$-$?(B
$B7k2L!"(BINS64$B$r;H$&$h$j$b@lMQ@~$r0z$$$?J}$,0B$$$3$H$K$J$C$?$N(B
$B$G!"!G(B96$BG/2F$+$i$O(BOMP$B$N@lMQ@~(B [$BCm(B13]$B!J8=:_$O(B64Kbps$B!K$KJQ99$7(B
$B$^$7$?!#(B

$B!!%$%s%?!<%M%C%H@\B3$N6lO+OC$H$7$F$O!"!V=>Mh$+$i;H$o$l$F$$$?(B
NIRA$B%M%C%H$H$N4V$H%W%m%P%$%@$H$N4V$G!"$3$A$i$N%M%C%H%o!<%/$N(B
$B%5!<%P!$,0c$&!W$H$$$&FCp$K5/0x$7$?$b$N$,$"$j$^$7$?!#(B

$B!!$D$^$j!"(BNIRA$B%M%C%H$NJ}$O!"$"$A$i$N(BNIS$B$G@_Dj$7$F$$$k(B
system.or.jp$B$H$$$&%I%a%$%sL>$,;XDj$5$l$F$*$j!"%$%s%?!<%M%C%H(B
$B$NJ}$G$O(BJPNIC [$BCm(B14] $B$K?=@A$7$FM?$($i$l$?@5<0$J%I%a%$%sL>(B
issr-kyoto.or.jp$B$,;H$o$l$F$$$k>u67$G$9!#(B

$B$=$N$?$a!"(BIP$B%"%I%l%9$O#1$D$G$b!"!V(BNIRA$B%M%C%H$H$N%a!<%k$N$d$j(B
$B!W!"!V%$%s%?!<%M%C%H$H$N%a!<%k$N$d$j!W$H$$$&$h$&$K;H$$J,$1$J$1$l$P$J$j$^$;$s!#(B
$B6qBNE*$K$O!"(Bsendmail$B$NCf$G%U%#%k%?$rDL$7$F!"Aw$k$H$-$K$"$F@h(B
$B$r8+$F?6$jJ,$1$k7A<0$K$7$F$$$^$9!#%a!<%k$re$GN)$A(B
$B>e$,$C$F$$$k$H$$$&$3$H$G$9$,!"%K%e!<%9!&%5!<%P!<$bF1$8%^%7%s(B
$B>e$G$9$+!#(B

$B#N!'%M%C%H!&%K%e!<%9(B [$BCm(B16] $B$O%W%m%P%$%@$KFI$_$K$$$/$h$&$K$J$C(B
$B$F$$$^$9$+$i!"%5!<%P!<$ON)$A>e$2$F$$$^$;$s!#(BSPARCstation 5$B$O(B
$B%M!<%`!&%5!<%P!<$H!"FbIt%M%C%H%o!<%/$N(BProxy$B$NLr3d$r;}$C$F$$(B
$B$^$9!#FbIt$N%W%i%$%Y!<%H(BIP$B%"%I%l%9$,30$K=P$J$$$h$&$K$9$k4X78(B
$B>e!"$9$Y$F(BSPARCstation 5$B$rDL$k$h$&$K@_7W$7$F$$$^$9$,!":G6a!"(B
$BIi2Y$,9b$/$J$C$F$-$F$$$k$N$G?7$7$$%o!<%/%9%F!<%7%g%s$rF3F~$7(B
$B$F$$$?$@$1$l$P$H;W$C$F$$$^$9!#(B

$B#T!'$=$&$G$9$M!#8=:_!"8!F$Cf$G$9!#(B

$B#Y!':#2s$O!"!V%M%C%H%o!<%/9=C[!"4IM}$H1?MQ$H$$$C$?!"%7%9%F%`(B
$B4IM}$N6HL3A4HL$r30It$KG$$;$k!W$H$$$&%9%?%$%k$rF3F~$7$?%7%9%F(B
$B%`2J3X8&5f=j$5$s$rK,Ld$7$^$7$?$,!"FbIt$N@UG$_7$5$s!"1D6H$NKL@n$5$s$H$$$&!"4X78$9$kJ}!9(B
$B$9$Y$F$K=8$^$C$F$$$?$@$1$?$N$G!"$H$F$b;29M$K$J$j$^$7$?!#(B

$B!!%M%C%H%o!<%/$K4X$9$k6HL3$r30It$KG$$;$k$3$H$G!"8&5f=j$NJ}$O(B
$BK\Mh$N6HL3$K@lG0$G$-!"(BKIP$B$5$s$O%M%C%H%o!<%/9=C[$N7P83$r$[$+(B
$B$NAH?%$N%M%C%H%o!<%/9=C[$K@8$+$7$F$$$/$3$H$G$7$g$&!#(B

$B!!:#F|$O!"5.=E$J$*OC$r$I$&$b$"$j$,$H$&$4$6$$$^$7$?!#(B


$B!!:#2s$N%k!<%HK,Ld$O!";d$NM'?M$N;{HxMN;R$5$s!"$=$NM'?M$N(BKIP
$B$N;32<2B;N$5$s$N6(NO$GrDL1(4]@>F~!#>o6P?&(B
$B0w?t$O(B37$BL>$G!"$=$N$&$A(B23$BL>$,8&5f0w!#(B
$B>\$7$/$O!"(Bhttp://www.issr-kyoto.or.jp/ $B;2>H!#(B


[$BCm#2(B]  $B5~ETEE;R7W;;3t<02qN$G?F$7$^$l$F$*$j!"!V(BKIP$B$O!"$D$M$K?75;=Q$KD)@o$7!"K-(B
$B$+$J>pJs&IJ$N3+H/!&HNGd$KNO$rF~$l$F$$$k!#=j:_CO$O!"5~ET(B
$B;TCf5~6h1(4]DLFs>r>e%k!#(B


[$BCm#3(B]  FORTRAN

FORmula TRANslator$B!J(BTRANslation$B!K(Bsystem$B$NN,!#!G(B56$BG/$K(BIBM$B$,(B
704$B7?EE;R7W;;5!MQ$K3+H/$7$?%W%m%0%i%_%s%08@8l!#?t<0$H;w$?5-(B
$B=R$,$G$-$k$?$a!"2J3X5;=Q7W;;MQ$H$7$F9-$/Ia5Z$7$?!#!G(B91$BG/$K$O!"(B
$B:G?7$NI8=`5,3J(BFortran90$B$,Dj$a$i$l$?!#(B


[$BCm#4(B]  NetWare

$B%N%Y%k$,3+H/!&HNGd$9$k%M%C%H%o!<%/(BOS$B!#FCD'$H$7$F!"F~=PNO$NMx(B
$BMQ$r:GE,2=$9$k$3$H$K$h$k9bB.@-$d9bEY$J%;%-%e%j%F%#5!G=$J$I$,(B
$B$"$2$i$l$k!#$3$3$GMxMQ$5$l$k%W%m%H%3%k$O!"(BIPX$B$H8F$P$l$k!#(B


[$BCm#5(B]  $B%M%C%H%o!<%/E*$K$OFbIt$K$"$k(B

$B%7%9%F%`2J3X8&5f=j$HCO0hL$Mh8&5f=j$H$N@\B3$O%k!<%?!<$r2p$7$F(B
$B$$$k$,!"(BIP$B%k!<%F%#%s%0$J$7$G%W%m%H%3%k$rN.$7$F$$$k$?$a!"%V%j%C(B
$B%8$H$7$F$NLr3d$7$+$5$;$F$$$J$$!#$3$l$O!"$b$H$b$H(BIPX$B$rDL$9I,(B
$BMW$,$"$C$?$?$a$G!"8=:_$O$[$+$K$b(BTCP/IP$B$d(BAppleTalk$B$rDL$7$F$$(B
$B$k!#(B


[$BCm#6(B]  $B9g7W#3Bf$N%o!<%/%9%F!<%7%g%s(B

$B$3$N#3Bf$N%^%7%s$N(BOS$B$O!"!G(B94$BG/F3F~$N(BSPARC station 5$B%b%G%k(B10
$B$,F|K\8l(BSolaris 2.3$B!"!G(B95$BG/F3F~$N(BSPARCstation 20$B$,F|K\8l(B
Solaris 2.4$B!"!G(B96$BG/F3F~$N(BUltra$B$,F|K\8l(BSolaris 2.5$B$G$"$k!#(B


[$BCm#7(B]  JCL

Job Control Language$B$NN,!#%a%$%s%U%l!<%`>e$G%3%s%Q%$%k$d%W%m(B
$B%0%i%`$NpJs$r5-=R$9$k(B
$B8@8l!#%a%$%s%U%l!<%`$G$O!"$I$s$J$K>.$5$J=hM}$G$b!"(BJCL$B$r=q$$(B
$B$Fo$KBgJQ$J:n6H$r6/$$$i$l$k!#(B


[$BCm#8(B]  MT

Magnetic Tape$B$NN,!#<'5$%F!<%W$N$3$H!#(B


[$BCm#9(B]  $B;H$$47$l$?%(%G%#%?(B

$B6qBNE*$K$O!"(BMIFES$B!"=(4]$J$I$,;H$o$l$F$$$k!#(B


[$BCm(B10]  lpr

$B%W%j%s%?$X$N%8%g%V$NAw?.$r9T$&%3%^%s%I!#$^$:!"%W%j%s%?!&%8%g(B
$B%V$r%9%W!<%kNN0h$K@8@.$7!"AuCV$d4D6-$,=`Hw$G$-$7$@$$0u:~$,9T(B
$B$o$l$k!#3F%W%j%s%?!&%8%g%V$O!"%3%s%H%m!<%k!&%U%!%$%k$H#18D0J(B
$B>e$N%G!<%?!&%U%!%$%k$+$i$J$j!"%G!<%?!&%U%!%$%k$O0z?t$H$7$F;X(B
$BDj$5$l$?%U%!%$%k!"$b$7$/$O!J%*%W%7%g%s!H(B-s$B!I;XDj;~!K;XDj$5$l(B
$B$?%U%!%$%k$X$N%7%s%\%j%C%/!&%j%s%/$+$i9=@.$5$l$k!#$^$?%9%W!<(B
$B%kNN0h$O!"%i%$%s!&%W%j%s%?!&%G!<%b%s$G$"$k(Blpd$B$K$h$C$F4IM}$5(B
$B$l$k!#(B


[$BCm(B11]  $B46F0$5$l$k(B

$BI.e$N%(%G%#%?$b;H$C$?$3$H$,$J$$(B
$B$?$a!"?=$7Lu$J$$$3$H$K46F0$G$-$J$+$C$?$,!"!V<+J,$,;H$$47$l$?(B
$B4D6-$r;H$$B3$1$i$l$k$3$H!W$,$$$+$K2wE,$+$O==J,$KM}2r$G$-$?!#(B


[$BCm(B12]  NIRA$B%M%C%H(B

NIRA$B$H$O!"(BNational Institute of Research Advancement$B!JE}9g8&(B
$B5f3+H/5!9=!K$NN,!#>\$7$/$O!"(Bhttp://www.nira.go.jp/ $B$r;2>H!#(B


[$BCm(B13]  OMP$B$N@lMQ@~(B

OMP$B$H$O!"(BOsaka Media Port$B$NN,!#(BNTT$B$H$O0c$&EEOC2q$H(B
IP$B%"%I%l%9$r4IM}$7$F$*$j!"%$%s%?!<%M%C%H$K@\B3$7$F$$$kAH?%$O!"(B
JPNIC$B$,4IM}$9$k(BDNS$B$KEPO?$5$l$F$$$k!#(B


[$BCm(B15]  DNS 

TCP/IP$B%M%C%H%o!<%/$GMQ$$$i$l$k%M!<%`!&%5!<%S%9$N;EAH$_!#(B
TCP/IP$B%M%C%H%o!<%/$G$O!"%I%a%$%s$H8F$VO@M}E*$J%0%k!<%W$r3,AX(B
$BE*$K@_Dj$G$-!"$=$NO@M}E*%0%k!<%WL>>N$G$"$k%I%a%$%sL>$r%3%s%T%e!<(B
$B%?L>!J%[%9%HL>!K$N0lIt$KAH$_9~$s$GMxMQ$9$kJ}K!$,:N$i$l$F$$$k!#(B
$B%M!<%`!&%5!<%P!<$O!"%[%9%HL>$H(BIP$B%"%I%l%9$NBP1~I=$r;}$C$F$$$k!#(B
$BDL?.$7$?$$Ajl9g!"%M!<%`!&%5!<(B
$B%P!<$KLd$$9g$o$;$k$HDLCN$7$F$/$l!"$=$N%5!<%P!<$,J,$+$i$J$1$l(B
$B$P!">e0L$N%M!<%`!&%5!<%P!<$KLd$$9g$o$;$k!#(B


[$BCm(B16]  $B%M%C%H!&%K%e!<%9(B

$B%$%s%?!<%M%C%H$K$*$1$kEE;R7G<(HD!#B??t$N%K%e!<%9!&%5!<%P!<$,(B
$BB8:_$7$F$*$j!"%f!<%6!<$,=q$-9~$_!JEj9F!K$9$k$HDj4|E*$b$7$/$O(B
$BB(:B$KNY@\$9$k%K%e!<%9!&%5!<%P!<$K$b=q$-9~$^$l!":G=*E*$K$O$9(B
$B$Y$F$N%K%e!<%9!&%5!<%P!<$KEA$o$k!#%K%e!<%9$NFI$_=q$-$K$O(BNNTP
$B!J(BNetwork News Transfer Protocol$B!K$,;HMQ$5$l$k!#(B

===================================================================
$B%3%i%`!!(B

$B2>A[(BJCL$B$K$h$k=hM}$K$D$$$F(B

$B$3$3$G$O!"2>A[(BJCL$B%G!<%?$r(BUNIX$BB&$G<+F0=hM}$9$k;EAH$_$K$D$$$F!"(B
$B@>_7$5$s$h$j6qBNE*$J@bL@$r$7$F$$$?$@$-$^$7$?!#(B

$B%f!<%6!<$,:n$C$?2>A[(BJCL$B$r(BUNIX$B>e$G=hM}$9$k(B

$B!!$3$l$^$G!"%a%$%s%U%l!<%`$N(BFORTRAN$B$r;H$C$F$$$?%f!<%6!<$K!"(B
$B$$$^$^$G$H$[$\F1$81?MQ4D6-$rDs6!$9$k$?$a$N%D!<%k$H$7$F!"(BUNIX
$B>e$K!"(B

$B!!!&(Bf77comp	$B!](B	$B%3%s%Q%$%k!&%3%^%s%I$r%7%'%k$GJq$`(B
$B!!!&(Bf77exec	$B!](B	$B%f!<%6!<$,F~NO$9$k%3%^%s%I(B
$B!!!&(Bsh2csh.awk	$B!](B	$B2>A[(BJCL$B%U%!%$%k$r#C%7%'%k$KE83+(B
$B!!!&(Bdtou$B!"(Butod	$B!](B	DOS$B!"(BUNIX$B4V$N%U%!%$%k7A<0$*$h$S4A;z$NJQ49(B
$B!!!&(Bsysort	$B!](B	$B0z?t$K%a%$%s%U%l!<%`!&%i%$%/$J7A<0$r;XDj$9$k(B
		        $B%=!<%H!&%3%^%s%I(B

$B$H$$$&$h$&$J%3%^%s%I$rMQ0U$7$F$$$^$9!#$3$l$i$N%D!<%k$,O"7H$7(B
$B$F2>A[(BJCL$B$K$h$k1?MQ$r2DG=$K$7$^$9!#(B

$B!!A[(BJCL$B%U%!%$%k!"(BFORTRAN$B$N%=!<%9!"%G!<%?!&%U%!%$%k$J$I$,(B
$BI,MW$G$9!#(B

$B!!A[(BJCL$B%U%!%$%kL>$r0z?t$H$7$F(Bf77exec$B$rA[(BJCL$B%U%!%$%k$O%a%$%s$N#C%7%'%k$H!"%5%V%7%'%k$H$J$kJ#?t(B
$B$N#C%7%'%k$KE83+!J%8%g%V!&%9%H%j!<%`$KBP1~$9$k$?$a!K$5$l$k(B

(3)$B%a%$%s$N#C%7%'%k$O3F%5%V%7%'%k$r=gHV$KA[(BJCL$B%U%!%$%k$r0z?t$H$7$F!"(B
f77exec$B%3%^%s%I$rA[(BJCL$B%U%!%$%k(B
#
FD         SRC=/home/u7105/ux4/for/uxmainpr.for
FD IN11=D,FILE=/home/u7105/ux4/dat/uxtitl03.dat
FD IN12=D,FILE=/home/u7105/ux4/dat/uxzntaio.dat
FD IN13=D,FILE=/home/u7105/ux4/dat/uxzokuse.dat,VOL=WORK
FD IN16=U,FILE=/home/u7105/ux4/dat/uxtetne3.dat
FD   CF=D,FILE=/home/u7105/ux4/dat/uxtetnet.dat
FD   CF=D,FILE=/home/u7105/ux4/dat/uxtetnor.dat
FD   CF=D,FILE=/home/u7105/ux4/dat/uxekizon.dat
FD IN19=U,FILE=/work/uxdr2005.unx,VOL=WORK,FORM=UNFORM
FD IN20=U,FILE=/work/uxbs2005.unx,FORM=UNFORM
FD OT21=U,FILE=/work/uxlinkc3.unx,FORM=UNFORM
FD OT22=U,FILE=/work/uxheadc3.unx,FORM=UNFORM,VOL=WORK
FD OT23=D,FILE=/work/uxbntnc3.unx,FORM=UNFORM,VOL=WORK
FD OT24=D,FILE=/work/uxrotlc3.unx
FD        LIST=ALL,TATE
#
SORT	KEY=(1,4,a)
FD IN11=D,FILE=/home/u7105/ux4/dat/uxtitl03.dat
FD OT23=U,FILE=/work/uxbntnc3.unx
#
FD         SRC=/home/u7105/ux4/for/uxmainpr.for
FD IN11=D,FILE=/home/u7105/ux4/dat/uxtitl03.dat
FD OT23=U,FILE=/work/uxbntnc3.unx,FORM=UNFORM
FD        LIST=EXEC,TAKO
FD OT24=U,FILE=/work/uxrotlc3.unx,FORM=UNFORM,VOL=WORK
FD OT25=D,FILE=/work/uxtimec3.unx

==> test.csh <== $B%a%$%s(BC$B%7%'%k(B
#!/bin/csh
csh test.01.csh
if ($status != 0) goto ErrorExit
dtou /home/u7105/ux4/dat/uxtitl03.dat /home/u7105/ux4/dat/uxtitl03.dat.temp
echo 'Sort Start [ /home/u7105/ux4/dat/uxtitl03.dat.temp -> 
/work/uxbntnc3.unx ]'
sysort /home/u7105/ux4/dat/uxtitl03.dat.temp,U,/work/uxbntnc3.unx-1,4,a
if ($status != 0) goto ErrorExit
echo 'Sort End.'
csh test.02.csh
if ($status != 0) goto ErrorExit
goto NormalExit
ErrorExit:
echo $$': Fortran 77 Compile & Execute Error.'
exit (9)
NormalExit:
echo $$': Fortran 77 Compile & Execute Success.'
exit (0)

==> test.01.csh <== $B%5%V(BC$B%7%'%k(B-1
#!/bin/csh
mv symopens.01.fort symopens.f
echo $$': Compile & Execute (1) Start.'
f77comp  /home/u7105/ux4/for/uxmainpr.for
set stsCmp = $status
set stsExe = 0
mv uxmainpr.compile uxmainpr.1.compile
if ($stsCmp == 0) then
	set inFile = /home/u7105/ux4/dat/uxtitl03.dat
	if !(-e $inFile) goto NotExist
	dtou $inFile uxtitl03.dat.temp
	setenv U11 uxtitl03.dat.temp
	set inFile = /home/u7105/ux4/dat/uxzntaio.dat
	if !(-e $inFile) goto NotExist
	dtou $inFile uxzntaio.dat.temp
	setenv U12 uxzntaio.dat.temp
	set inFile = /home/u7105/ux4/dat/uxzokuse.dat
	if !(-e $inFile) goto NotExist
	dtou $inFile uxzokuse.dat.temp
	setenv U13 uxzokuse.dat.temp
	set inFile = /home/u7105/ux4/dat/uxtetne3.dat
	if !(-e $inFile) goto NotExist
	setenv U16 /home/u7105/ux4/dat/uxtetne3.dat
	set inFile = /home/u7105/ux4/dat/uxtetnet.dat
	if !(-e $inFile) goto NotExist
	cp /home/u7105/ux4/dat/uxtetne3.dat uxtetne3.dat.temp
	dtou $inFile uxtetnet.dat.temp
	cat uxtetnet.dat.temp >> uxtetne3.dat.temp
	(J\(Brm uxtetnet.dat.temp
	setenv U16 uxtetne3.dat.temp
	set inFile = /home/u7105/ux4/dat/uxtetnor.dat
	if !(-e $inFile) goto NotExist
	dtou $inFile uxtetnor.dat.temp
	cat uxtetnor.dat.temp >> uxtetne3.dat.temp
	(J\(Brm uxtetnor.dat.temp
	setenv U16 uxtetne3.dat.temp
	set inFile = /home/u7105/ux4/dat/uxekizon.dat
	if !(-e $inFile) goto NotExist
	dtou $inFile uxekizon.dat.temp
	cat uxekizon.dat.temp >> uxekizns.dat.temp
	(J\(Brm uxekizon.dat.temp
	setenv U18 uxekizns.dat.temp
	set inFile = /work/uxdr2005.unx
	if !(-e $inFile) goto NotExist
	setenv U19 /work/uxdr2005.unx
	set inFile = /work/uxbs2005.unx
	if !(-e $inFile) goto NotExist
	setenv U20 /work/uxbs2005.unx
	setenv U21 /work/uxlinkc3.unx
	setenv U22 /work/uxheadc3.unx
	setenv U23 /work/uxbntnc3.unx
	setenv U24 /work/uxrotlc3.unx
	echo $$': Execute Start [ uxmainpr.exe ]'
	uxmainpr.exe > uxmainpr.1.result
	set stsExe = $status
	echo $$': Execute End  Return Code =' $stsExe
	(J\(Brm *.exe
	utod $U24 $U24
	(J\(Brm /home/u7105/ux4/dat/uxzokuse.dat
	(J\(Brm /home/u7105/ux4/dat/uxparamd.dat
	(J\(Brm /work/uxdr2005.unx
	(J\(Brm /work/uxheadc3.unx
	(J\(Brm /work/uxbntnc3.unx
endif
goto ExitScript
NotExist:
echo $inFile': No such file or directory'
set stsExe = 5
ExitScript:
@ sts = $stsCmp + $stsExe
if ($sts != 0) exit (9)

============================== 

$B!!!J5~ETEE;R7W;;3t<02q_74pOB!K(B

===================================================================