gtool(gt3-dl5)DECؤΰܿΥ : 

97/07/26  Ƿ 

 f77 vs f90

f77  f90 ϥѥ顼̾㤦()ΤΡиȥ֥
Ѥʤ

 f90 Ǥ make install  gtfunc ̤ʤäƤ⺣
ǰΤɤƥ顼ˤʤʤääѤʬʤwrite(6,*) 
ʬʤΤǤޤʤȻפäŬ˽񤭴ƥѥ̤
Ի׵ġ

 եɽ

ưΥХʥ꡼ɽ little endian Ǥ뤳ȤСSun(big
endian)ȤۤȤƱǤΤǡեθߴ򵤤ˤʤаܿ
ϳڤǤ롣DEC fortranˤϥץ -conbert big_endian 뤬
unformatted IOΥ֥åζڤ국ϥƥˤäưۤʤΤǡߴ
ˤĤƤϵ䡣DEC϶ڤʸޤǧΤǡ¾Υޥ
줿Τϼդʤ⡣

вIOѥåf[ehl]packˤȤ߹ळȤǸߴݤäƤ롣
ŪˤNetCDFˤä˾ޤ롣f[ehl]packѤϲŪ
ΤǤĤʤΤǡˤϾܤϽ񤫤ʤ

 cpp  !" Ȥᤷʤ

#include         "gzsize.F"              !" NCC, NDC

Τ褦ˡ#includeԤ ! Ϥޤ륳Ȥ񤯤ȥ顼ˤʤ롣

нˡ. filterϰʲȤ

foreach file ( `find . -name "*.F" -print` )
  if ( -f `grep -l '^#include.*!' $file` ) then
    echo $file
    \mv -f $file "$file"_#bak#
    sed 's/^\(#include.*\.F\"\).*/\1/' "$file"_#bak# > $file
  endif
end

rm -i `find . -name "*.F_#bak#" -print`

 makeΥǥե꤬ f77 λͤ򤭤İƤʤ

f77.Fcppݤ뤬Makefilesysmake/Makedef.DECA˰ʲΤ褦˽
ʤ$(CPPFLAGS)̵뤵

.F.o:
	$(FC) $(FFLAGS) $(CPPFLAGS) -c $<

 src/sample/gtaxis/gtaxis.F

INTERPȤºݤˤϸƤФƤʤؿ external Ƥäƥ顼
ˤʤ -> нˡȥȤ롣ftpȤ֤Ǥ
٤

