您好，初学Fortran遇到了问题，真心向您求教！Fortr...1
发布网友
发布时间：2024-03-21 00:19
共1个回答
热心网友
时间：2024-03-26 18:59
Implicit None
Real :: a , b , c , d
Real :: mat( 2 , 2 )
a = 1.
b = 2.
c = 3.
d = 4.
mat = reshape( [ a*a, b+a , d*d+c , c ] , [2,2] )
write(*,*) mat
End Program www_fcode_cn
