C HANOI.FTN - INTEGER BENCHMARK PROGRAM C DIMENSION NO(20),NF(20),NT(20) C SET UP INITIAL PARAMETER VALUES COMMON /LUNS/ ICRD,ILPT,IKBD,ITTY I=1 K=2 N=20 C C WRITE(itty,83) 83 FORMAT (' BENCHMARK - HANOI') C C ***** BEGINNING OF TIMED INTERVAL ***** CALL TIMRB C ***** ***** C JP=1 3 IF (N-1) 5,7,5 5 NO(JP)=N NF(JP)=I NT(JP)=K K=6-I-K 6 N=N-1 JP=JP+1 GO TO 3 7 JP=JP-1 IF (JP) 8,777,8 8 N=NO(JP) IF (N) 7,7,9 9 I=NF(JP) K=NT(JP) NO(JP)=-N I=6-I-K GO TO 6 777 CONTINUE C C ***** END OF TIMED INTERVAL ***** CALL TIMRE C ***** ***** C STOP END