您所在位置：主题：关于vc和Fortran中字符转换成整形的问题
owen5517
[专家分：0] 发布于 2011-11-08 16:36:00
open(10,file='E:\tbb_data\FY2C_TBB_IR1_OTG_20080625_0900.AWX',STATUS='OLD', form='formatted',access='direct',recl=1201)
do i=1,1201
read(10,rec=i+2) ch
do j=1,1201
tbb(j,i)=ichar(ch(j))+100-273.15
enddo
enddo
我用以上Fortran程序段读取数据，把字符转换成整形。用以下vc程序读取数据，把字符转换成整形。
两个程序读出来的数据差距挺大的，不知道哪里有问题，请达人指教！！
万分感谢！
FILE *fp;
if((fp=fopen(“E:\tbb_data\FY2C_TBB_IR1_OTG_20080625_0900.AWX”,"rb"))==NULL)
{
printf("can not open file\n");
exit(0);
}
for( i=0;i<1201;i++)
{
fseek(fp,(i+2)*1201*sizeof(char),0);
fread(c_data,1201*sizeof(char),1,fp);
for(int j=0;j<1201;j++)
{
ref_true[i][j] = short(c_data[j])+100-273.15;
}
}
do i=1,1201
read(10,rec=i+2) ch
do j=1,1201
tbb(j,i)=ichar(ch(j))+100-273.15
enddo
enddo
我用以上Fortran程序段读取数据，把字符转换成整形。用以下vc程序读取数据，把字符转换成整形。
两个程序读出来的数据差距挺大的，不知道哪里有问题，请达人指教！！
万分感谢！
FILE *fp;
if((fp=fopen(“E:\tbb_data\FY2C_TBB_IR1_OTG_20080625_0900.AWX”,"rb"))==NULL)
{
printf("can not open file\n");
exit(0);
}
for( i=0;i<1201;i++)
{
fseek(fp,(i+2)*1201*sizeof(char),0);
fread(c_data,1201*sizeof(char),1,fp);
for(int j=0;j<1201;j++)
{
ref_true[i][j] = short(c_data[j])+100-273.15;
}
}
