本来是想弄一个加密的小程序，就是从原文本（设‘aaa.txt’）中顺序逐字符读取，经某加密规则（change函数，确认无误，输入值为一字符，返回值为一字符），再逐字符写入目标文件中。
本菜鸟编写的主程序如下：
include "jia_jiemi.f90"
program jiami
use jia_jiemi
implicit none
character(1) a,b
integer error
character(20) filename1,filename2
integer,parameter::f1=20,f2=30
print*,"目标文件："
read(*,*) filename1
filename2='加密结果.txt'
open(f1,file=filename1,recl=1)
open(f2,file=filename2,recl=1)
do while(.true.)
read(f1,"(a1)",iostat=error,advance='no')a
if(error/=0)exit
b=change(a)
write(unit=f2,fmt="(a1)")b !~~~~#@￥%#%@问题在这里#￥……#￥……
end do
close(f1)
close(f2)
stop
end
本来是要连着的（不自动换行），但当写成：
write(unit=f2,fmt="(a1)",advance='no')b
时，运行时出错（编译连接没问题）
求教高手，该如何是好？！？！？！！？
本人不胜感激！！！！
本菜鸟编写的主程序如下：
include "jia_jiemi.f90"
program jiami
use jia_jiemi
implicit none
character(1) a,b
integer error
character(20) filename1,filename2
integer,parameter::f1=20,f2=30
print*,"目标文件："
read(*,*) filename1
filename2='加密结果.txt'
open(f1,file=filename1,recl=1)
open(f2,file=filename2,recl=1)
do while(.true.)
read(f1,"(a1)",iostat=error,advance='no')a
if(error/=0)exit
b=change(a)
write(unit=f2,fmt="(a1)")b !~~~~#@￥%#%@问题在这里#￥……#￥……
end do
close(f1)
close(f2)
stop
end
本来是要连着的（不自动换行），但当写成：
write(unit=f2,fmt="(a1)",advance='no')b
时，运行时出错（编译连接没问题）
求教高手，该如何是好？！？！？！！？
本人不胜感激！！！！
