C ============== PROGRAM RANDIR C ============== DIMENSION X(25),GX(50) COMMON /ONE/ NSR,KWR,ILI,NPE,NFX,NGR READ(*,*) N,KG,NSR WRITE(*,1001) WRITE(*,1002) N,KG,NSR 1001 FORMAT(25X,'======== PRIMARY DATA ========'/) 1002 FORMAT(5X,'N=',I4,2X,'KG=',I4,2X,'NSR=',I4) CALL MAISUB(N,KG,X,GX) STOP END . . . .