47,49c47
< c     +  2.1044E-04,1.6226E-04,1.3787e-04,1.1220E-02/
< c     Revised 
<      +  2.1044E-04,1.6226E-04,1.3947e-04,1.1220E-02/
---
>      +  2.1044E-04,1.6226E-04,1.3787e-04,1.1220E-02/
53,55c51
< c     +  2.1044E-04,1.6226E-04,1.4934e-04,1.1220E-02/
< c     Revised
<      +  2.1044E-04,1.6226E-04,1.4832e-04,1.1220E-02/
---
>      +  2.1044E-04,1.6226E-04,1.4934e-04,1.1220E-02/
57,58c53
< c      data date11/2011340/,d_acf2/1.007/
<       data d_acf2/1.00806/
---
>       data date11/2011340/,d_acf2/1.007/
62,63c57
< c      data date21/2014220/,d_acf3/0.977/
<       data d_acf3/0.985222/
---
>       data date21/2014220/,d_acf3/0.977/
68,70c62,63
<         rcal(12)=rcaln2(12)*d_acf2
< c        rcal(12)=rcaln2(12)
< c        if(date.eq.date11) rcal(12)=rcal(12)*d_acf2
---
>         rcal(12)=rcaln2(12)
>         if(date.eq.date11) rcal(12)=rcal(12)*d_acf2