PROGRAM MAIN
IMPLICIT NONE
INTEGER::STATUS REAL::RANGENORTH,RANGEWEST,RANGESOUTH,RANGEEAST
REAL::LAT,LON,VALUE
OPEN(UNIT=1201501,FILE="gsmap_mvk_v52221_20070101_daily_p12Z-11Z_01_AsiaEE.csv")
OPEN(UNIT=1201502,FILE="RANGE.TXT")
OPEN(UNIT=2201501,FILE="20070101.TXT")
READ(1201501,*)
READ(1201502,*)RANGENORTH,RANGEWEST,RANGESOUTH,RANGEEAST
DO
READ(1201501,*,IOSTAT=STATUS)LAT,LON,VALUE
IF(STATUS/=0)EXIT
IF(LAT<=RANGENORTH.AND.LAT>=RANGESOUTH.AND.LON>=RANGEWEST.AND.LON<=RANGEEAST)THEN
WRITE(2201501,'(3F10.2)')LON,LAT,VALUE
END IF
END DO
END PROGRAM MAIN
8.09 KB, 下载次数: 6
207.13 KB, 下载次数: 4
龙行天下 发表于 2015-1-28 09:36
全盘搜索 libifcoremd.dl结果
fcode 发表于 2015-1-28 09:09
在我电脑上也能完美运行。得到 20070101.txt
丢失libifcoremd.dll 的话,可能是某些文件夹应该添加在 Path ...
3.jpg (51.11 KB, 下载次数: 448)
pasuka 发表于 2015-1-28 09:41
lz的OS是64bit,那么ivf编译的程序是64还是32?
这个明确后,再去ivf安装目录把对应的dll拷贝出来 ...
龙行天下 发表于 2015-1-28 10:42
这会儿又瞎捣鼓了一下
重新安装IVF后
pasuka 发表于 2015-1-28 10:59
为啥要拷贝到系统目录下,直接和exe搁一个目录不就结了。。。
查看dll的依赖关系,下载dllexp ...
龙行天下 发表于 2015-1-28 11:39
嘿嘿,不可能编译一个程序就把它们拷贝一次吧
感觉还是配置问题了
dllexp很不错啊
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |