求高手指教，读micaps第二类格式时遇到一个问题

ぁ哈哈镜ん

程序如下：   
  program  bintd
parameter (st=521)  !the nums of station
character stid(st)*8
integer nflag nlev
real lat(st),lon(st),hb(st),class(st),
     &hgt(st),temp(st),dewt(st),wd(st),ws(st),tim
open(30,file='F:\2015\0507sur\5micaps\high\plot\15050708.000')
open(40,file='F:\2015\0507sur\700hw\700plot.grd',form='binary')
read(30,*)
read(30,*)
do i=1,st
      read(30,'(a6,2f8.2,5a5,f5.1,2a5)')stid(i),lon(i),lat(i),hb(i),
     &class,hgt,temp,dewt,wd(i),ws(i)
      end do
close(30)
tim=0.0
nflag=1
nlev=1
do i=1,st
write(40)stid(i),lat(i),lon(i),tim,nlev,nflag,hgt(i),
     &class(i),pre(i),temp(i),dewt(i),wd(i),ws(i)
end do
nlev=0
do i=1,st
    write(40)stid(i),lat(i),lon(i),tim,nlev,nflag
end do
close(40)
      end
link后提示如下：--------------------Configuration: qzidongzhan - Win32 Debug--------------------
Linking...
qzidongzhan.obj : error LNK2001: unresolved external symbol _PRE@4
Debug/qzidongzhan.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.
我的数据是2015年的700hpa填图数据
diamond 2 15年05月07日08时700百帕高空观测
15 05 07 08  700 521
  1001   -8.66   70.93    9    1  283  -18   16   85    2
  1010   16.15   69.30   14    1  287   -5  1.0  175   10
  1028   19.02   74.52   14    1  286  -11  4.3  230    9
  1241    9.60   63.70    7    1  286   -9  3.8  165    5
  1415    5.63   58.88    9    1  283   -9  2.1  195   11
  2963   23.50   60.82  103    1  298   -4   40  230    9
  3005   -1.17   60.13   84    1  276  -10  1.5  255   11
  3354   -1.24   53.00  117    1  293  -10    6  300   15
  3808   -5.31   50.22   88    1  298   -9   20  270   11
  3953  -10.24   51.93   14    1  295  -11   14  265    8
  4018  -22.59   63.97   38    1  290  -15   14  355   10
  4220  -52.74   68.70   47    1  291  -13  4.1  220    6
  4270  -45.41   61.18   26    1  294   -9    9  155    9
  4320  -18.66   76.77   12    1  285  -22    9  340    7
  4339  -21.96   70.48   66    1  288  -21   11  350   15
  4360  -37.62   65.60   52    1  296  -11   24  275    6
  6011   -6.76   62.02   39    1  278  -11  1.4  350   11
  6260    5.18   52.10    4    1  295   -8    9  250   21
  6610    6.95   46.82  491    1  308   -5   11  225   14
  7110   -4.41   48.45  103    1  302   -6   22  260   13
  7510    -.69   44.83   45    1  308   -2   26  245   13
.......

小傅之追梦

pre  没给出定义吧