shuchu.f90

来自「计算卫星位置的fortran程序」· F90 代码 · 共 9 行

SUBROUTINE XIANSHI(A,M,N)
INTEGER M,N,F
REAL*8 A(M,N),B(N,M)
CHARACTER(len=20) :: FOR='(??(1X,D19.12))'
    WRITE( FOR(2:3), '(I2)' ) N
    B=TRANSPOSE(A)
    WRITE(*,FMT=FOR)B
RETURN
END