anchor.diff:        CALL CHKIN2(ne, 217, 4, m, GDW_GE)
         CALL CHKST2(ne, 217, 5, fields(1), 'in3')
         CALL CHKST2(ne, 217, 6, fields(2), 'in4')
  -      CALL CHKIN2(ne, 217, 7, dp, 32d3)
  +      CALL CHKDB2(ne, 217, 7, dp, 32d3)
   
   C     218: GDATRG check
         l = flen
  
positive.code:       l = flen
        i = flen
        CALL GDGEWD(fields(1), i, fields(2), l, m, j, dp, n, d, 'new18',
       +6)
        CALL CHKOK2(ne, 212, 2, d)
        CALL CHKIN2(ne, 212, 1, i, flen)
        CALL CHKIN2(ne, 212, 2, l, flen)
  
negative.code:       CALL CHKIN2(ne, 228, 4, m, 1)
        CALL CHKST2(ne, 228, 5, fields(1), 'data')
        CALL CHKST2(ne, 228, 6, fields(2), 'sbit')
        CALL CHKIN2(ne, 228, 7, j, 10)
  
  C     229: GDADMX check
        CALL GDADMX(d, 'new21', 5, 'in1', 3, 'in2', 3, 5, 6, 0)
  