anchor.diff:  
     k = seed / 127773
   
  -  seed = 16807 * ( seed - k * 127773 ) - k * 2836
  +  seed = 16807 * ( seed - int(k) * 127773 ) - int(k) * 2836
   
     if ( seed < 0 ) then
       seed = seed + 2147483647
  
positive.code: 
          j = j2lo - 1 + j2
  
          if ( a(i,j) == real ( int ( a(i,j) ), kind = 8 ) ) then
            write ( ctemp(j2), '(f8.0,6x)' ) a(i,j)
          else
            write ( ctemp(j2), '(g14.6)' ) a(i,j)
  
negative.code: 
      r(1) = r8_uniform_01 ( seed )
  
      if ( abs(r(1))  <= 1.0D-10 ) then
        write ( *, '(a)' ) ' '
        write ( *, '(a)' ) 'R8VEC_NORMAL_01 - Fatal error!'
        write ( *, '(a)' ) '  R8_UNIFORM_01 returned a value of 0.'
  