fortran可以对指数函数组成的函数直接求实部吗?答:可以啊!PROGRAM QUEAN IMPLICIT NONE COMPLEX(16)::CE,CS REAL(8)::a,b INTEGER(4)::K,L,M,N CE=(4.,5.)CS=(3,4)WRITE(*,*)REAL(EXP(CE/CS))WRITE(*,*)AIMAG(EXP(CE/CS))READ(*,*)END ...
FORTRAN 矩阵相乘的函数function怎么写? 必须用 function 不能用 s...答:implicit none !!!定义function的使用接口 interface function mymatmul(m,n,a,b)integer:: m, n real:: a(m,n), b(n,m)real:: mymatmul(m,m)end function mymatmul end interface real::a(1,2),b(2,1)...