[請益] 這輸出格式的意義

看板Fortran作者juangpeiyi (燒瓶中的小人 Homunculus)時間13年前 (2010/12/01 13:58)推噓1(1推 0噓 17→)

留言18則, 6人參與討論串1/2 (看更多)

擷取一部分放上來問 nit=nit+1 i1 = mod(nit,10) i2 = mod(nit,100)/10 i3 = mod(nit,1000)/100 i4 = mod(nit,10000)/1000 i5 = mod(nit,100000)/10000 i6 = mod(nit,1000000)/100000 i7 = mod(nit,10000000)/1000000 i8 = mod(nit,100000000)/10000000 i9 = nit/100000000 ca1 = CHAR(i1+48) ca2 = CHAR(i2+48) ca3 = CHAR(i3+48) ca4 = CHAR(i4+48) ca5 = CHAR(i5+48) ca6 = CHAR(i6+48) ca7 = CHAR(i7+48) ca8 = CHAR(i8+48) ca9 = CHAR(i9+48) !上面再補一些在完整一點 suffix= '.dat' pt1 = 'shape'//ca9//ca8//ca7//ca6//ca5//ca4//ca3//ca2//ca1//suffix pt2 = 'pc'//ca9//ca8//ca7//ca6//ca5//ca4//ca3//ca2//ca1//suffix pt3 = 'Tc'//ca9//ca8//ca7//ca6//ca5//ca4//ca3//ca2//ca1//suffix pt4 = 'Mc'//ca9//ca8//ca7//ca6//ca5//ca4//ca3//ca2//ca1//suffix do i=1, 100, 1 t=s(i) if (t<3) cycle open(101,file=pt1,status='unknown') write(101,*) 'VARIABLES= "r" , "Pc" , "z"' write(101,*) 'ZONE I=',t+1,',J=1,f=point' do l=1, t+1, 1 write(101,*) rn(i,l), Cn(i), zn(i,l) write(*,*) rn(i,l), Cn(i), zn(i,l) end do end do write(101,*) pn_0, Mn_1, C, c_1, c_2, A, Hi, gamma close(101) . . . (略) F7 F5後都不會跑出data 連把 pt1.dat 開(新增)出來都沒有目前我比較疑惑的是很多雙斜線那幾行我不是很確定那是在幹嘛翻了書沒有翻到 (彭國倫f95那本) 不知道各位高手能指教一下嗎 ? -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.117.58.26

→

charlesdc

12/01 14:55, , 1^F

12/01 14:55, 1^F

→

gilocustom

12/01 16:01, , 2^F

12/01 16:01, 2^F

→

charlesdc

12/01 16:26, , 3^F

12/01 16:26, 3^F