文件名称：随机方向法程序及结果
文件大小：38KB
文件格式：DOC
更新时间：2012-06-22 13:22:11
随机方向法 程序 结果
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 . . . .