C C FILENAMES: CHARACTER*80 FILE2 C C LOGICAL UNIT NUMBERS: INTEGER LU2 PARAMETER (LU2=2) C C ARRAY DIMENSIONS: INTEGER MLE,MH,MSPINE PARAMETER (MLE=600,MH=MLE**2+1,MSPINE=MLE*(MLE+1)/2) C INTEGER ISP1(MSPINE),ISP2(MSPINE),ISP3(MSPINE) C C....................................................................... C NH=27 FILE2='NET.FS' WRITE(*,'(A)') * '+ENTER MAXIMUM F.S. SIZE (27), AND F.S. FILENAME (''NET.FS''): ' READ(*,*) NH,FILE2 IF(NH.GT.MH) THEN STOP 'ERROR: TOO LARGE FORWARD STAR.' END IF OPEN(LU2,FILE=FILE2) C NSPINE=0 DO 69 I1=1,NH DO 58 I2=0,I1 DO 57 I3=0,I2 DO 10 J=2,I1 IF(MOD(I1,J).EQ.0.AND.MOD(I2,J).EQ.0 * .AND.MOD(I3,J).EQ.0) THEN GO TO 56 END IF 10 CONTINUE C C NEW SPINE NSPINE=NSPINE+1 IF(NSPINE.GT.MSPINE) THEN STOP 'ERROR: TOO MANY SPINES.' END IF ISP1(NSPINE)=I3 ISP2(NSPINE)=I2 ISP3(NSPINE)=I1 C 56 CONTINUE 57 CONTINUE 58 CONTINUE C WRITE(*,'(A,I7,2I8)') '+',I1,NSPINE WRITE(LU2,'(I3,I6,I7,E13.6)') I1,NSPINE WRITE(LU2,'(8(3I3,1X))') (ISP1(I),ISP2(I),ISP3(I),I=1,NSPINE) 69 CONTINUE WRITE(LU2,'(I3,I6,I7,E13.6)') 0,0 C STOP END C C======================================================================= C