anchor.diff:  C              8-PARAMETER SRI FORM
   C
                     XP = 1.0/(1.0 + PRLOG**2)
  -                  FC = ((FPAR(4,N)*EXP(-FPAR(5,N)/T)
  +                  FC = ((FPAR(4,N)*EXP(-FPAR(5,N)/T) 
        1                   + EXP(-T/FPAR(6,N))) **XP)
        2                  * FPAR(7,N) * T**FPAR(8,N)
   C
  
positive.code: 	common/adpchm6/ iModel, iicount
  	common/saveNUR/ nur, modelSize
  	common/saveNUS/ nus
  	common/inert/ yinert
          common/adpchm7/ inewlib, iCall
  !       <Luwi===9/2/2010====>
  c	common /mpi/ noprocs,nidproc
  	common /adpmpi/ noprocs,nidproc
  	common/adpchm8/ iadapnew
  	if (jsolv .eq. -1) then
  !	This call is supposed to load new model library
  
negative.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
  