$ emacs makefile
$ head -n 4 makefile
#FC=gfortran#FFLAGS=-g -cpp -DUSE_GEN -ffixed-line-length-255FC=ifort
FFLAGS=-O2 -g -traceback -cpp -DUSE_GEN -132
$ make
gfortranを使う場合は,以下のようなエラーに遭遇するかもしれない.
tsp98.f:9839:32:
CALL SUBGRP(MG,JG,MGT,JGT,NTAB,IND)
1
Error: Actual argument contains too few elements for dummy argument 'ntab' (12/48) at (1)
make: *** [tsp98.o] Error 1
その時はtsp98.fを以下のように書き換える(9925行目):
Before:
9913: C SUBROUTINE SUBGRP ====*====3====*====4====*====5====*====6====*====79914: C
9915: C IF (JG(I),I=1,MG) IS A SUBGROUP OF (JGT(J),J=1,MGT) THEN9916: C TABLE (NTAB(I),I=1,MG) IS MADE HERE AND IND=09917: C ELSE9918: C IND=-19919: C
9920: C 1993/12/259921: C BY S.TANAKA AND A. YANASE
9922: C---*----1----*----2----*----3----*----4----*----5----*----6----*----79923: C
9924: SUBROUTINE SUBGRP(MG,JG,MGT,JGT,NTAB,IND)
9925: DIMENSION NTAB(48),JG(48),JGT(48)
After:
9913: C SUBROUTINE SUBGRP ====*====3====*====4====*====5====*====6====*====79914: C
9915: C IF (JG(I),I=1,MG) IS A SUBGROUP OF (JGT(J),J=1,MGT) THEN9916: C TABLE (NTAB(I),I=1,MG) IS MADE HERE AND IND=09917: C ELSE9918: C IND=-19919: C
9920: C 1993/12/259921: C BY S.TANAKA AND A. YANASE
9922: C---*----1----*----2----*----3----*----4----*----5----*----6----*----79923: C
9924: SUBROUTINE SUBGRP(MG,JG,MGT,JGT,NTAB,IND)
9925: DIMENSION NTAB(12),JG(48),JGT(48)