anchor.diff:        flush(93)
         write(93,"(a)") "SIXTRACR> CRCHECK verifying extended vars fort.96"
         flush(93)
  -      read(96,end=101,err=101,iostat=ierro)                  &
  +      read(96,end=101,err=101,iostat=ierro)                 &
           ((((al(k,m,j,l),l=1,il),j=1,crnapxo),m=1,2),k=1,6), &
           ((((as(k,m,j,l),l=1,il),j=1,crnapxo),m=1,2),k=1,6), &
  -!       (aek(j),j=1,crnapxo),                               &
  -!       (afok(j),j=1,crnapxo),                              &
  -!       (as3(j),j=1,crnapxo),                               &
  -!       (as4(j),j=1,crnapxo),                               &
  -!       (as6(j),j=1,crnapxo),                               &
  -!       (co(j),j=1,crnapxo),                                &
  -        (dpd(j),j=1,crnapxo),                               &
  -        (dpsq(j),j=1,crnapxo),                              &
  -!       (fi(j),j=1,crnapxo),                                &
  -!       (fok(j),j=1,crnapxo),                               &
  -!       (fok1(j),j=1,crnapxo),                              &
  -        (fokqv(j),j=1,crnapxo)!,                             &
  -!       (g(j),j=1,crnapxo),                                 &
  -!       (gl(j),j=1,crnapxo),                                &
  -!       (hc(j),j=1,crnapxo),                                &
  -!       (hi(j),j=1,crnapxo),                                &
  -!       (hi1(j),j=1,crnapxo),                               &
  -!       (hm(j),j=1,crnapxo),                                &
  -!       (hp(j),j=1,crnapxo),                                &
  -!       (hs(j),j=1,crnapxo),                                &
  -!       (rho(j),j=1,crnapxo),                               &
  -!       (rhoc(j),j=1,crnapxo),                              &
  -!       (rhoi(j),j=1,crnapxo),                              &
  -!       (si(j),j=1,crnapxo),                                &
  -!       (siq(j),j=1,crnapxo),                               &
  -!       (sm1(j),j=1,crnapxo),                               &
  -!       (sm12(j),j=1,crnapxo),                              &
  -!       (sm2(j),j=1,crnapxo),                               &
  -!       (sm23(j),j=1,crnapxo),                              &
  -!       (sm3(j),j=1,crnapxo),                               &
  -!       (wf(j),j=1,crnapxo),                                &
  -!       (wfa(j),j=1,crnapxo),                               &
  -!       (wfhi(j),j=1,crnapxo)
  +        (dpd(j),j=1,crnapxo),(dpsq(j),j=1,crnapxo),(fokqv(j),j=1,crnapxo)
         backspace (96,iostat=ierro)
         write(93,"(a)") "SIXTRACR> CRCHECK read fort.96 EXTENDED OK"
         flush(93)
  
positive.code:       end if
  
        read(95,end=100,err=100,iostat=ierro) &
  !       (aek(j),j=1,napxo),   &
  !       (afok(j),j=1,napxo),  &
  !       (as3(j),j=1,napxo),   &
  !       (as4(j),j=1,napxo),   &
  !       (as6(j),j=1,napxo),   &
  !       (co(j),j=1,napxo),    &
          (dpd(j),j=1,napxo),   &
          (dpsq(j),j=1,napxo),  &
  !       (fi(j),j=1,napxo),    &
  !       (fok(j),j=1,napxo),   &
  !       (fok1(j),j=1,napxo),  &
          (fokqv(j),j=1,napxo)!, &
  !       (g(j),j=1,napxo),     &
  !       (gl(j),j=1,napxo),    &
  !       (hc(j),j=1,napxo),    &
  !       (hi(j),j=1,napxo),    &
  !       (hi1(j),j=1,napxo),   &
  !       (hm(j),j=1,napxo),    &
  !       (hp(j),j=1,napxo),    &
  !       (hs(j),j=1,napxo),    &
  !       (rho(j),j=1,napxo),   &
  !       (rhoc(j),j=1,napxo),  &
  !       (rhoi(j),j=1,napxo),  &
  !       (si(j),j=1,napxo),    &
  !       (siq(j),j=1,napxo),   &
  !       (sm1(j),j=1,napxo),   &
  !       (sm12(j),j=1,napxo),  &
  !       (sm2(j),j=1,napxo),   &
  !       (sm23(j),j=1,napxo),  &
  !       (sm3(j),j=1,napxo),   &
  !       (wf(j),j=1,napxo),    &
  !       (wfa(j),j=1,napxo),   &
  !       (wfhi(j),j=1,napxo)
        write(93,"(a)") "SIXTRACR> CRSTART read fort.95 EXTENDED OK"
        flush(93)
        goto 102
  
negative.code:       read(95,end=100,err=100,iostat=ierro) &
          ((((al(k,m,j,l),l=1,il),j=1,crnapxo),m=1,2),k=1,6), &
          ((((as(k,m,j,l),l=1,il),j=1,crnapxo),m=1,2),k=1,6), &
          (dpd(j),j=1,crnapxo),(dpsq(j),j=1,crnapxo),(fokqv(j),j=1,crnapxo)
        backspace (95,iostat=ierro)
        write(93,"(a)") "SIXTRACR> CRCHECK read fort.95 EXTENDED OK"
        flush(93)
  