Commit 54075f55 authored by Paulo V C Medeiros's avatar Paulo V C Medeiros
Browse files

Fix for FI station numbers for the set "70*"

parent bf655b9c
......@@ -183,18 +183,21 @@
CASE ('FI')
if (rval_station.lt.1000.) then
write(indic(1:2),'(i2.2)') INT(rval_block)
write(indic(3:5),'(i3.3)') INT(rval_station)
write(indic(1:2),'(i2.2)') INT(rval_block)
write(indic(3:5),'(i3.3)') INT(rval_station)
else if ((rval_station.ge.1000.).and.(rval_station.lt.2000.)) then
write(indic(1:2),'(i2.2)') INT(rval_block)
write(indic(3:6),'(i4.4)') INT(rval_station)
else if ((rval_station.ge.2000.).and.(rval_station.lt.3000.)) then
i_stn=INT(rval_station)
i_stn=i_stn-2000
write(indic(1:2),'(i2.2)') INT(rval_block)
write(indic(3:5),'(i3.3)') i_stn
i_stn=INT(rval_station)
i_stn=i_stn-2000
write(indic(1:2),'(i2.2)') INT(rval_block)
write(indic(3:5),'(i3.3)') i_stn
else if (rval_station.ge.700000.) then
indic='2 '
write(indic(2:7),'(i6.6)') INT(rval_station)
indic='2 '
write(indic(2:7),'(i6.6)') INT(rval_station)
else
write(*,*) 'ERROR : Something wrong with FI stn nr = ',INT(rval_station)
write(*,*) 'ERROR : Something wrong with FI stn nr = ',INT(rval_station)
endif
CASE ('IS')
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment