anchor.diff:        END
   
   C**********************************************************************
  -C Initialize variables
  +C Initialize variables 
         subroutine adapchemINI()
   	dimension icall(1)
   	common/adpchm7/ inewlib, iCall
  
positive.code:      6             RCKWRK(NcI1), NRNU, ICKWRK(IcRNU), RCKWRK(NcRNU))
  C
  C
        CALL ACKRATX (p,rckwrk(NcRU),nur, NII, NKK, MXSP, MXTB, T, C,
       $             ICKWRK(IcNS),
       1             ICKWRK(IcNU), ICKWRK(IcNK), NPAR+1, RCKWRK(NcCO),
       2             NFAL, ICKWRK(IcFL), ICKWRK(IcFO), ICKWRK(IcKF), NFAR,
       3             RCKWRK(NcFL), NTHB, ICKWRK(IcTB), ICKWRK(IcKN),
       4             RCKWRK(NcKT), ICKWRK(IcKT), RCKWRK(NcKF),
       5             RCKWRK(NcKR), RCKWRK(NcI1), RCKWRK(NcI2),
       6             RCKWRK(NcI3), NRNU, ICKWRK(IcRNU), RCKWRK(NcRNU),
       7             NORD, ICKWRK(IcORD), MXORD, ICKWRK(IcKOR),
       8             RCKWRK(NcKOR),
       $             ispecies)
  C
  
negative.code: 	if(iCall.eq.2) goto 007
  C     On first call, read and save model library
  	call readModels(lin,kk,ii,rangeLo,rangeHi,nModels)
  	close(lin)	
  	iCall = 2
  C     <modelLib: signal completion of model library upload>
  	open(78,file='donemodels',status='new')
  	close(78)
  	if(jsolv .eq. -1) then
          return ! Luwi--4/23/2010--this call was for loading models only
          endif        
  C     </modelLib>
    007	continue
  C
  