Page 1 Source Listing SPIGOT 2021-09-18 17:44 SPIGOT77.FOR 1 PROGRAM SPIGOT 2 C 3 DIMENSION iVECT(3350),iBUFFER(201) 4 DATA iVECT/3350*2/,iMORE/0/ 5 C 6 DO 20 N=1, 201 7 iCARRY = 0 8 DO 30 L=3350, 1, -1 9 NUM = 100000*iVECT(L) + iCARRY*L 10 iCARRY = NUM/(2*L-1) 11 iVECT(L) = NUM - iCARRY*(2*L-1) 12 30 CONTINUE 13 K = iCARRY/100000 14 iBUFFER(N) = iMORE+K 15 iMORE = iCARRY - K*100000 16 20 CONTINUE 17 C 18 WRITE(*,100) iBUFFER 19 100 FORMAT(1X ,I1,'.'/(1X,10I5.5)) 20 C 21 STOP 22 END ENTRY POINTS Name MAIN__ Page 2 Source Listing SPIGOT 2021-09-18 17:44 Symbol Table SPIGOT77.FOR SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 100 Label 19 18 20 Label 16 6 30 Label 12 8 IBUFFER Local 3 I(4) 4 1 201 14,18 ICARRY Local 7 I(4) 4 scalar 7,9,10,11,13,15 IMORE Local 4 I(4) 4 scalar 4,14,15 IVECT Local 3 I(4) 4 1 3350 4,9,11 K Local 13 I(4) 4 scalar 13,14,15 L Local 8 I(4) 4 scalar 8,9,10,11 N Local 6 I(4) 4 scalar 6,14 NUM Local 9 I(4) 4 scalar 9,10,11 SPIGOT Prog 1 Page 3 Source Listing SPIGOT 2021-09-18 17:44 Subprograms/Common Blocks SPIGOT77.FOR SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References SPIGOT Prog 1 COMPILER: Intel(R) Fortran 2021.10.0-1769 SPIGOT77.EXEyIntel Fortran CompilerzŽÀsŒ‹‰Ê 3. 14159265358979323846264338327950288419716939937510 58209749445923078164062862089986280348253421170679 82148086513282306647093844609550582231725359408128 48111745028410270193852110555964462294895493038196 44288109756659334461284756482337867831652712019091 45648566923460348610454326648213393607260249141273 72458700660631558817488152092096282925409171536436 78925903600113305305488204665213841469519415116094 33057270365759591953092186117381932611793105118548 07446237996274956735188575272489122793818301194912 98336733624406566430860213949463952247371907021798 60943702770539217176293176752384674818467669405132 00056812714526356082778577134275778960917363717872 14684409012249534301465495853710507922796892589235 42019956112129021960864034418159813629774771309960 51870721134999999837297804995105973173281609631859 50244594553469083026425223082533446850352619311881 71010003137838752886587533208381420617177669147303 59825349042875546873115956286388235378759375195778 18577805321712268066130019278766111959092164201989