作者h888512 (理论型嘴炮)
看板Fortran
标题[问题] 奇怪的BUG...
时间Fri Dec 3 20:32:09 2010
程式码如下,如果没加pgplot的那些指令就很正常,而且可以跑
但一加下去後他就说我第五行宣告错误
读的档里面的确都是浮点数没错....
program test
integer :: i,pgopen
istat=PGOPEN('raman.ps/vcps')
if(istat<=0)stop' ERR opening for PS file!'
real :: shift1(1423),count1(1423),shift2(305),count2(305)
open(1,file='ethanol.txt',status='old')
do i=1,1423
read(1,'(f7.2,1x,f7.3)') shift1(i),count1(i)
end do
do i=1,305
read(1,'(f7.3,1x,f7.3)') shift2(i),count2(i)
end do
call pgsci(1)
call pgslw(4)
call pgsch(2.0)
call pgscf(3)
call pgenv(500.323,3001.44,0,1000,0,1)
call pglab('Raman shift(Reciprocal cm)','count','Raman spectrum of Ni-GEM')
call pgslw(2)
call pgsci(2)
do i=1,1423,1
call pgline(1423,shift1(i),count1(i))
end do
do i=1,305
call pgline(305,shift2(i),count2(i))
end do
call pgend
end
以上,感谢大家!!
--
◤ ◥ 塞鲁表示:C字裤我14年前就在穿了!◤ ﹨════│ ═════/
◣ ◣ ◥ 2002十八号离子烫超直发 ╲ ◣ │ ◤ ◣ ╱
◥ ▂▂▃▅▆
▎2003悟空两件式混搭 ◥ ╲ ◢ ◣ ╱
◣◆ ˙ ◤| ▏2004达尔靴 ◥ ╲ ◢ ╱ ◤
██▆▅▅▆ / ▏2005特南克斯短版外套 φJeans1020 ◥▅▃▂╲◥ ◣ ╱_▂▃
████ ▲ ▲ 2009赛鲁C字裤 鸟山明 引领流行20年▊ ◤ ◥◣ ▄▂▁ ◢◤◥
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.187.84
1F:→ janhon:if 要放在宣告後面 12/03 22:32
2F:推 meteorology:应该是你的ISTAT没宣告~ 12/04 12:51
3F:→ blc:一楼对了,宣告结束之後才能做其他事。 12/04 21:16
4F:推 meteorology:ISTAT没宣告也可以喔?? 学到了!! 12/06 01:06
5F:→ blc:因为没有写implicit none,i开头变数会预设成整数。 12/06 09:09
6F:→ blc:好不好在其次,不会有错误讯息就是了。 12/06 09:10
7F:推 meteorology:阿对齁 自从习惯加implicit none 之後 都忘了这个 12/10 23:49