********> bugfix.13
Author: Dave Case
Date:   15 May 2000

Programs: fantasian

Description:  typo led to undefined variable

Fix: applyt the following patch:

*** fantasian.f.old     Mon May 15 06:53:58 2000
--- fantasian.f 		Mon May 15 06:52:56 2000
***************
*** 1097,1103 ****
        do 41 j=1,nhp*nstr
          tmp2=abs(obs(j)-SHIFT(J))-tolprot(J)
          if (tmp2.gt.0.0) then
!           stdev=stdev+(tmp2**2-med)**2*wprot(j)/mlprot(j)
          endif
   41   continue
        stdev=stdev/rm
--- 1097,1103 ----
        do 41 j=1,nhp*nstr
          tmp2=abs(obs(j)-SHIFT(J))-tolprot(J)
          if (tmp2.gt.0.0) then
!           stdev=stdev+(tmp2**2-smed)**2*wprot(j)/mlprot(j)
          endif
   41   continue
        stdev=stdev/rm