rlab2/579.diff

   1 --- rlab-2.2.9-old/579.f        2006-02-06 12:40:04.000000000 -0500
   2 +++ rlab-2.2.9/579.f    2006-11-16 00:49:17.000000000 -0500
   3 @@ -253,7 +253,7 @@
   4  C
   5  C  CALCULATION OF THE EXTRAPOLATION CONSTANTS.
   6  C
   7 -  220 FC(M) = 1.5+SIGN(.5,FACT-1.)
   8 +  220 FC(M) = 1.5+SIGN(dble(.5),dble(FACT-1.))
   9        IF(M.EQ.2) FC(M)=FC(M)+RA
  10        IF(FACT.GT.1.) FC(M)=-FC(M)
  11        GOTO 30
  12 @@ -296,4 +296,4 @@
  13
  14        DRCMULT = DCMPLX(RE*DBLE(CO),RE*DIMAG(CO))
  15        RETURN
  16 -      END
  17 \ No newline at end of file
  18 +      END