上传者: mvpbing
|
上传时间: 2021-08-23 11:29:20
|
文件大小: 38KB
|
文件类型: DOC
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
.
.
.
.