Fortran77矩阵格式输出

最新推荐文章于 2024-05-21 14:01:40 发布

astragin

最新推荐文章于 2024-05-21 14:01:40 发布

阅读量1.2k

点赞数 2

分类专栏： Fortran 文章标签： fortran

本文链接：https://blog.csdn.net/weixin_43725312/article/details/109314729

版权

本文介绍了在Fortran77中如何实现矩阵的格式化输出，通过控制输出方式来模拟矩阵样式，同时提到了存在一个子程序用于计算矩阵的偏应力。

摘要由CSDN通过智能技术生成

Fortran77矩阵格式输出

加油
本次解决了矩阵输出格式的问题。
通过不换输出，模拟矩阵格式。
子程序可以求矩阵的偏应力。

      PROGRAM MAIN
      REAL XIDENTY(3,3),STRESS(3,3),DEVIATO(3,3)
      DO I=1,3
          DO J=1,3
              XIDENTY(I,J)=0.D0
          END DO
              XIDENTY(I,I)=1.D0
      END DO
C note that the J just exist in the above loop
      DO I=1,3
          DO J=1,3
              STRESS(I,J)=1.D0
          END DO 
      END DO
      STRESS(1,1)=1.d0
      STRESS(2,2)=0.d0
      STRESS(2,2)=0.d0
      CALL KDEVIA(STRESS,XIDENTY,DEVIATO)
c***********