代码搜索结果
找到约 10,000 项符合
F 的代码
xgfinterface.f.in
* FORTRAN Interface Code for Xgrafix
*****************************************************************
* Subroutine XGINIT initializes the XGrafix package.
************************************
block.f
PARAMETER(N=4000, NB=80)
REAL A(N,N), B(N,N)
*
DO J = 1, N
DO I = 1, N
A(I,J) = 1.D0
B(I,J) = 1.D0
ENDDO
ENDDO
*
DO JJ = 1, N, N
a+bt.f
PARAMETER(N=4000, NB=32)
REAL A(N,N), B(N,N)
*
DO J = 1, N
DO I = 1, N
A(I,J) = 1.D0
B(I,J) = 1.D0
ENDDO
ENDDO
*
DO J = 1, N
conflicts.f
PARAMETER(N=2048)
REAL*8 A(N,N)
DO K = 1, 100
DO I = 1, N
DO J = 1, N
A(I,J) = 1.D0
ENDDO
ENDDO
ENDDO
STOP
END
axb.f
PARAMETER(N=1024)
REAL*8 A(N,N), B(N,N), C(N,N)
*
DO J = 1, N
DO I = 1, N
A(I,J) = 1.D0
B(I,J) = 1.D0
C(I,J) = 0.D0
ENDDO