- 博客(4)
- 收藏
- 关注
RSS订阅
2原创 Fortran 对一维数组大小进行排序 生成新的数组
program hello real ps1,ps2 integer i,k dimension g(1) dimension ps1(3), ps2(3) ps1(1)=10.0 ps1(2)=19.0 ps1(3)=12.0 ps2(1)=0 ps2(2)=0 ps2(3)=0 DO k=1,3 i=MAXLOC(ps1,dim=1) ps2(k)=ps1(i) .
2022-02-22 17:19:34
1100
原创 Fortran 停止进入调试代码
logical :: firstrun = .true. integer tempvar if(firstrun) then write(*,*)"please input an integer:" read(*,*)tempvar firstrun = .false. endif
2021-08-18 10:35:35
315
原创 Fortran 设置Format输出
open(UNIT=25,FILE='C:\Users\Lenovo\Desktop\file_out\ 1STATEV.dat',STATUS='OLD',ACTION='WRITE', 2POSITION='APPEND') write(25,32) TIME(1), STATEV C 标号区 32 FORMAT("Time=",f10.4,/,"elastic strain: ",6f10.4,/,"plastic 1...
2021-08-17 15:14:06
1302
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人