Fortran将字符串数组写入文件，前面怎么好多十六进制乱码

秋小阳

请教大神，Fortran将字符串数组写入文件，前面怎么好多十六进制乱码？下面是代码




character*200 fnamecharacter*16,dimension(ML):: dgt15,dgt20,dgt25,dgt30,dgt35,dgt40
nd1=0;nd2=0;nd3=0;nd4=0;nd5=0;nd6=0
ML=5000

if(abs(degd)>=15 .and. abs(degd)<20)then
                nd1=nd1+1
                dgt15(nd1)=fname(1:16)
!                print*,dgt15(nd1),fname(1:16)
            else if(abs(degd)>=20 .and. abs(degd)<25)then
                nd2=nd2+1
                dgt20(nd2)=fname(1:16)
!               print*,20,degd
            else if(abs(degd)>=25 .and. abs(degd)<30)then
                nd3=nd3+1
                dgt25(nd3)=fname(1:16)
!               print*,25,degd
            endif

    output2=trim(outpath)//'Motion_gt_15_lt_20_degree.dat'                        
    open(40,file=trim(output2),form='formatted')
    write(40,23)(dgt15(k),k=1,ML)
   close(40)
23  format(A)

湖南小桌子

呵呵红红火火恍恍惚惚哈哈哈哈

sxnsq8888

学习了学习了