anchor.diff:      REAL(KIND=8) :: rprecision
       rprecision = 10.0**(-PRECISION(1.0))
   
  -#ifdef SERIALIZE
   PRINT *, '>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<'
   PRINT *, '>>> WARNING: SERIALIZATION IS ON <<<'
   PRINT *, '>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<'
  
positive.code:   ppser_reallength, &
    ppser_realtype, &
    ppser_zrperturb
  #endif
  
  
    IMPLICIT NONE
  
  
negative.code:   CASE(2)
      call fs_read_and_perturb_field(ppser_serializer_ref, ppser_savepoint, 'ser_a', a, ppser_zrperturb)
  END SELECT
  
    END SUBROUTINE deserialize
  
  