November 15, 2000 (amended April 23, 2001)

===> In module t2f.f make the following changes.

Subroutine MULTI, right after the statement "30 CONTINUE", change
         PER1=PER1*PAR(N1LM2+2*NBK+6)
         PER2=PER2*PAR(N2LM2+2*NBK+6)
to
         PER1=PER1*PAR(N1LM2+2*NBK+3)
         PER2=PER2*PAR(N2LM2+2*NBK+3)

Subroutine PHASD, change line 3718 from
         pin=pi(n)*par(jlm2+2*nbk+6)
to
         pin=pi(n)*par(jlm2+2*nbk+3)

Subroutine PHASF, change line 3836 from
         pin=pi(n)*par(jlm2+2*nbk+6)
to
         pin=pi(n)*par(jlm2+2*nbk+3)

Subroutine GCOR, change line 4202 from
         pind=pi(nd)*par(jdloc2+2*nbk+6)
to
         pind=pi(nd)*par(jdloc2+2*nbk+3)

		 
===> In module ewasg.f make the following changes

Subroutine EOS, change lines 872-875 from
          PAR(NLK2S+3)=ABS(PA)+1.E-20
          PAR(NLK2S+4)=DHAL(TX,PX)
          PAR(NLK2S+5)=HHAL(TX)
          PAR(NLK2S+6)=AKREL(1.-SS)
to
          PAR(NLK2S+3)=AKREL(1.-SS)
          PAR(NLK2S+4)=DHAL(TX,PX)
          PAR(NLK2S+5)=HHAL(TX)
          PAR(NLK2S+6)=0.

change lines 1113-1116 from
          PAR(NLK2S+3)=ABS(PA)+1.E-20
          PAR(NLK2S+4)=DHAL(TX,PX)
          PAR(NLK2S+5)=HHAL(TX)
          PAR(NLK2S+6)=AKREL(1.-SS)

to
          PAR(NLK2S+3)=AKREL(1.-SS)
          PAR(NLK2S+4)=DHAL(TX,PX)
          PAR(NLK2S+5)=HHAL(TX)
          PAR(NLK2S+6)=0.

change lines 1438-1441 from
          PAR(NLK2S+3)=ABS(PA)+1.E-20
          PAR(NLK2S+4)=DHAL(TX,PX)
          PAR(NLK2S+5)=HHAL(TX)
          PAR(NLK2S+6)=PRED

to
          PAR(NLK2S+3)=PRED
          PAR(NLK2S+4)=DHAL(TX,PX)
          PAR(NLK2S+5)=HHAL(TX)
          PAR(NLK2S+6)=0.

Subroutine OUT, change line 2623 from
        perred=par(nloc2s+6)
to
        perred=par(nloc2s+3)