subroutine tdb_merge_chk(a,b,iok)
  !
  ! **generated by gensis_f90.py -- do not edit!
  !
  use trdatbuf_obj
  implicit NONE
 
  type(trdatbuf) :: a,b        ! objects to be compared for merge-ability
  logical, intent(out) :: iok  ! T iff objects can be merged
 
  call tdb_merge_test('LADR_ZA',a%LADR_ZA,b%LADR_ZA,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LADR_ZAF',a%LADR_ZAF,b%LADR_ZAF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LAEPDE',a%LAEPDE,b%LAEPDE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LAEPDP',a%LAEPDP,b%LAEPDP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LAEPE',a%LAEPE,b%LAEPE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LAEPMAP',a%LAEPMAP,b%LAEPMAP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LAEPMU',a%LAEPMU,b%LAEPMU,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LAEPP',a%LAEPP,b%LAEPP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LAEPSP',a%LAEPSP,b%LAEPSP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LAEPTS',a%LAEPTS,b%LAEPTS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LAIMPS',a%LAIMPS,b%LAIMPS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LAIMPX',a%LAIMPX,b%LAIMPX,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATALP',a%LDATALP,b%LDATALP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATBDI',a%LDATBDI,b%LDATBDI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATCUR',a%LDATCUR,b%LDATCUR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATDFL',a%LDATDFL,b%LDATDFL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATDTG',a%LDATDTG,b%LDATDTG,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATDTS',a%LDATDTS,b%LDATDTS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATDTX',a%LDATDTX,b%LDATDTX,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATEDI',a%LDATEDI,b%LDATEDI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATEHP',a%LDATEHP,b%LDATEHP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATELI',a%LDATELI,b%LDATELI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATFGW',a%LDATFGW,b%LDATFGW,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATFIE',a%LDATFIE,b%LDATFIE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATFMN',a%LDATFMN,b%LDATFMN,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATFMX',a%LDATFMX,b%LDATFMX,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATGAS',a%LDATGAS,b%LDATGAS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATGF3',a%LDATGF3,b%LDATGF3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATGF4',a%LDATGF4,b%LDATGF4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATGF6',a%LDATGF6,b%LDATGF6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATGFD',a%LDATGFD,b%LDATGFD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATGFH',a%LDATGFH,b%LDATGFH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATGFT',a%LDATGFT,b%LDATGFT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATGIE',a%LDATGIE,b%LDATGIE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATHAL',a%LDATHAL,b%LDATHAL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATIBM',a%LDATIBM,b%LDATIBM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATIEC',a%LDATIEC,b%LDATIEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATIIC',a%LDATIIC,b%LDATIIC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATILH',a%LDATILH,b%LDATILH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATL2B',a%LDATL2B,b%LDATL2B,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATLAD',a%LDATLAD,b%LDATLAD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATLID',a%LDATLID,b%LDATLID,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATNTX',a%LDATNTX,b%LDATNTX,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATOGF',a%LDATOGF,b%LDATOGF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATORC',a%LDATORC,b%LDATORC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATPBE',a%LDATPBE,b%LDATPBE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATPBI',a%LDATPBI,b%LDATPBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATPEB',a%LDATPEB,b%LDATPEB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATPEC',a%LDATPEC,b%LDATPEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATPF0',a%LDATPF0,b%LDATPF0,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATPFH',a%LDATPFH,b%LDATPFH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATPFL',a%LDATPFL,b%LDATPFL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATPIB',a%LDATPIB,b%LDATPIB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATPIC',a%LDATPIC,b%LDATPIC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATPLF',a%LDATPLF,b%LDATPLF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATPLH',a%LDATPLH,b%LDATPLH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATPOS',a%LDATPOS,b%LDATPOS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATRBZ',a%LDATRBZ,b%LDATRBZ,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATRC3',a%LDATRC3,b%LDATRC3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATRC4',a%LDATRC4,b%LDATRC4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATRC6',a%LDATRC6,b%LDATRC6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATRCD',a%LDATRCD,b%LDATRCD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATRCH',a%LDATRCH,b%LDATRCH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATRCT',a%LDATRCT,b%LDATRCT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATRCY',a%LDATRCY,b%LDATRCY,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATRMN',a%LDATRMN,b%LDATRMN,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATRTP',a%LDATRTP,b%LDATRTP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATSBT',a%LDATSBT,b%LDATSBT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATSF3',a%LDATSF3,b%LDATSF3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATSFA',a%LDATSFA,b%LDATSFA,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATSFL',a%LDATSFL,b%LDATSFL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATSFP',a%LDATSFP,b%LDATSFP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATSFT',a%LDATSFT,b%LDATSFT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATSP3',a%LDATSP3,b%LDATSP3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATTET',a%LDATTET,b%LDATTET,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATTGF',a%LDATTGF,b%LDATTGF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATTIT',a%LDATTIT,b%LDATTIT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATTPI',a%LDATTPI,b%LDATTPI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATTQT',a%LDATTQT,b%LDATTQT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATTRC',a%LDATTRC,b%LDATTRC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATTRF',a%LDATTRF,b%LDATTRF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATTXI',a%LDATTXI,b%LDATTXI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATVPH',a%LDATVPH,b%LDATVPH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATVSB',a%LDATVSB,b%LDATVSB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATVSF',a%LDATVSF,b%LDATVSF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATXKF',a%LDATXKF,b%LDATXKF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATZEF',a%LDATZEF,b%LDATZEF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATZFA',a%LDATZFA,b%LDATZFA,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATZIM',a%LDATZIM,b%LDATZIM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDATZPL',a%LDATZPL,b%LDATZPL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDMDF',a%LDMDF,b%LDMDF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDMFR',a%LDMFR,b%LDMFR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDMMX',a%LDMMX,b%LDMMX,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDMSE',a%LDMSE,b%LDMSE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDPFC',a%LDPFC,b%LDPFC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LDPFC_PRE',a%LDPFC_PRE,b%LDPFC_PRE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LEFD0',a%LEFD0,b%LEFD0,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LEFDB',a%LEFDB,b%LEFDB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LEFDP',a%LEFDP,b%LEFDP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LEFDQ',a%LEFDQ,b%LEFDQ,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LEFDR',a%LEFDR,b%LEFDR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LEFDS',a%LEFDS,b%LEFDS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFAEPA',a%LFAEPA,b%LFAEPA,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFAEPP',a%LFAEPP,b%LFAEPP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFAXR',a%LFAXR,b%LFAXR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFBOL',a%LFBOL,b%LFBOL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFBPA',a%LFBPA,b%LFBPA,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFBPB',a%LFBPB,b%LFBPB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFD2F',a%LFD2F,b%LFD2F,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFDE2',a%LFDE2,b%LFDE2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFDF3',a%LFDF3,b%LFDF3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFDF4',a%LFDF4,b%LFDF4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFDF6',a%LFDF6,b%LFDF6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFDFD',a%LFDFD,b%LFDFD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFDFH',a%LFDFH,b%LFDFH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFDFT',a%LFDFT,b%LFDFT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFECA',a%LFECA,b%LFECA,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFECB',a%LFECB,b%LFECB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFECF',a%LFECF,b%LFECF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFFD0',a%LFFD0,b%LFFD0,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFFDB',a%LFFDB,b%LFFDB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFFDP',a%LFFDP,b%LFFDP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFFDQ',a%LFFDQ,b%LFFDQ,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFFDR',a%LFFDR,b%LFFDR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFFDS',a%LFFDS,b%LFFDS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFFEH',a%LFFEH,b%LFFEH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFFEL',a%LFFEL,b%LFFEL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFGRB',a%LFGRB,b%LFGRB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFIBE',a%LFIBE,b%LFIBE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFIBI',a%LFIBI,b%LFIBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFJBM',a%LFJBM,b%LFJBM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFJEC',a%LFJEC,b%LFJEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFJIC',a%LFJIC,b%LFJIC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFLF3',a%LFLF3,b%LFLF3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFLF4',a%LFLF4,b%LFLF4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFLF6',a%LFLF6,b%LFLF6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFLFD',a%LFLFD,b%LFLFD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFLFH',a%LFLFH,b%LFLFH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFLFT',a%LFLFT,b%LFLFT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFLHE',a%LFLHE,b%LFLHE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFLHJ',a%LFLHJ,b%LFLHJ,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFMSE',a%LFMSE,b%LFMSE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFNER',a%LFNER,b%LFNER,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFNI3',a%LFNI3,b%LFNI3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFNI4',a%LFNI4,b%LFNI4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFNI6',a%LFNI6,b%LFNI6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFNID',a%LFNID,b%LFNID,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFNIH',a%LFNIH,b%LFNIH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFNIM',a%LFNIM,b%LFNIM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFNIT',a%LFNIT,b%LFNIT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFNMR',a%LFNMR,b%LFNMR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFOMG',a%LFOMG,b%LFOMG,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFPRS',a%LFPRS,b%LFPRS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFPSI',a%LFPSI,b%LFPSI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFQBE',a%LFQBE,b%LFQBE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFQBI',a%LFQBI,b%LFQBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFQEC',a%LFQEC,b%LFQEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFQIC',a%LFQIC,b%LFQIC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFQPR',a%LFQPR,b%LFQPR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFREE',a%LFREE,b%LFREE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFRES',a%LFRES,b%LFRES,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFRQRFF',a%LFRQRFF,b%LFRQRFF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSBI',a%LFSBI,b%LFSBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSIM',a%LFSIM,b%LFSIM,300,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYAXR',a%LFSYAXR,b%LFSYAXR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYBOL',a%LFSYBOL,b%LFSYBOL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYBPA',a%LFSYBPA,b%LFSYBPA,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYBPB',a%LFSYBPB,b%LFSYBPB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYD2F',a%LFSYD2F,b%LFSYD2F,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYDE2',a%LFSYDE2,b%LFSYDE2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYDF3',a%LFSYDF3,b%LFSYDF3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYDF4',a%LFSYDF4,b%LFSYDF4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYDF6',a%LFSYDF6,b%LFSYDF6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYDFD',a%LFSYDFD,b%LFSYDFD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYDFH',a%LFSYDFH,b%LFSYDFH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYDFT',a%LFSYDFT,b%LFSYDFT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYECF',a%LFSYECF,b%LFSYECF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYFEH',a%LFSYFEH,b%LFSYFEH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYFEL',a%LFSYFEL,b%LFSYFEL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYGRB',a%LFSYGRB,b%LFSYGRB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYIBE',a%LFSYIBE,b%LFSYIBE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYIBI',a%LFSYIBI,b%LFSYIBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYJBM',a%LFSYJBM,b%LFSYJBM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYJEC',a%LFSYJEC,b%LFSYJEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYJIC',a%LFSYJIC,b%LFSYJIC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYLF3',a%LFSYLF3,b%LFSYLF3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYLF4',a%LFSYLF4,b%LFSYLF4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYLF6',a%LFSYLF6,b%LFSYLF6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYLFD',a%LFSYLFD,b%LFSYLFD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYLFH',a%LFSYLFH,b%LFSYLFH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYLFT',a%LFSYLFT,b%LFSYLFT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYLHE',a%LFSYLHE,b%LFSYLHE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYLHJ',a%LFSYLHJ,b%LFSYLHJ,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYMSE',a%LFSYMSE,b%LFSYMSE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYNER',a%LFSYNER,b%LFSYNER,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYNI3',a%LFSYNI3,b%LFSYNI3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYNI4',a%LFSYNI4,b%LFSYNI4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYNI6',a%LFSYNI6,b%LFSYNI6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYNID',a%LFSYNID,b%LFSYNID,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYNIH',a%LFSYNIH,b%LFSYNIH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYNIM',a%LFSYNIM,b%LFSYNIM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYNIT',a%LFSYNIT,b%LFSYNIT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYNMR',a%LFSYNMR,b%LFSYNMR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYOMG',a%LFSYOMG,b%LFSYOMG,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYPRS',a%LFSYPRS,b%LFSYPRS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYQBE',a%LFSYQBE,b%LFSYQBE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYQBI',a%LFSYQBI,b%LFSYQBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYQEC',a%LFSYQEC,b%LFSYQEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYQIC',a%LFSYQIC,b%LFSYQIC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYQPR',a%LFSYQPR,b%LFSYQPR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYRES',a%LFSYRES,b%LFSYRES,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYSBI',a%LFSYSBI,b%LFSYSBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYSIM',a%LFSYSIM,b%LFSYSIM,300,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYTER',a%LFSYTER,b%LFSYTER,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYTI2',a%LFSYTI2,b%LFSYTI2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYTQI',a%LFSYTQI,b%LFSYTQI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYV2F',a%LFSYV2F,b%LFSYV2F,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYVB2',a%LFSYVB2,b%LFSYVB2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYVC3',a%LFSYVC3,b%LFSYVC3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYVC4',a%LFSYVC4,b%LFSYVC4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYVC6',a%LFSYVC6,b%LFSYVC6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYVCD',a%LFSYVCD,b%LFSYVCD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYVCH',a%LFSYVCH,b%LFSYVCH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYVCT',a%LFSYVCT,b%LFSYVCT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYVEE',a%LFSYVEE,b%LFSYVEE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYVIE',a%LFSYVIE,b%LFSYVIE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYVMO',a%LFSYVMO,b%LFSYVMO,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYVP2',a%LFSYVP2,b%LFSYVP2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYVPO',a%LFSYVPO,b%LFSYVPO,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYVPR',a%LFSYVPR,b%LFSYVPR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYVTR',a%LFSYVTR,b%LFSYVTR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYZF2',a%LFSYZF2,b%LFSYZF2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFSYZXR',a%LFSYZXR,b%LFSYZXR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFTER',a%LFTER,b%LFTER,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFTI2',a%LFTI2,b%LFTI2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFTQI',a%LFTQI,b%LFTQI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFULNB',a%LFULNB,b%LFULNB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFV2F',a%LFV2F,b%LFV2F,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFVB2',a%LFVB2,b%LFVB2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFVC3',a%LFVC3,b%LFVC3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFVC4',a%LFVC4,b%LFVC4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFVC6',a%LFVC6,b%LFVC6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFVCD',a%LFVCD,b%LFVCD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFVCH',a%LFVCH,b%LFVCH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFVCT',a%LFVCT,b%LFVCT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFVEE',a%LFVEE,b%LFVEE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFVIE',a%LFVIE,b%LFVIE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFVMO',a%LFVMO,b%LFVMO,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFVP2',a%LFVP2,b%LFVP2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFVPO',a%LFVPO,b%LFVPO,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFVPR',a%LFVPR,b%LFVPR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFVTR',a%LFVTR,b%LFVTR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFZF2',a%LFZF2,b%LFZF2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LFZXR',a%LFZXR,b%LFZXR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LHLFNB',a%LHLFNB,b%LHLFNB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LLIM',a%LLIM,b%LLIM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LMOMD',a%LMOMD,b%LMOMD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LPELDA',a%LPELDA,b%LPELDA,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LPHSLH',a%LPHSLH,b%LPHSLH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LPMDF',a%LPMDF,b%LPMDF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LPMSE',a%LPMSE,b%LPMSE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LPWREC',a%LPWREC,b%LPWREC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LPWRLH',a%LPWRLH,b%LPWRLH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LPWRNB',a%LPWRNB,b%LPWRNB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LPWRRF',a%LPWRRF,b%LPWRRF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LRFS',a%LRFS,b%LRFS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LRMFR',a%LRMFR,b%LRMFR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LRMP_BDY1',a%LRMP_BDY1,b%LRMP_BDY1,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LRMP_BDY2',a%LRMP_BDY2,b%LRMP_BDY2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LRMSE',a%LRMSE,b%LRMSE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LRP2',a%LRP2,b%LRP2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LRPL',a%LRPL,b%LRPL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LRPSI',a%LRPSI,b%LRPSI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSEVENT',a%LSEVENT,b%LSEVENT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYAXR',a%LSSYAXR,b%LSSYAXR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYBOL',a%LSSYBOL,b%LSSYBOL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYBPA',a%LSSYBPA,b%LSSYBPA,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYBPB',a%LSSYBPB,b%LSSYBPB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYD2F',a%LSSYD2F,b%LSSYD2F,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYDE2',a%LSSYDE2,b%LSSYDE2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYDF3',a%LSSYDF3,b%LSSYDF3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYDF4',a%LSSYDF4,b%LSSYDF4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYDF6',a%LSSYDF6,b%LSSYDF6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYDFD',a%LSSYDFD,b%LSSYDFD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYDFH',a%LSSYDFH,b%LSSYDFH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYDFT',a%LSSYDFT,b%LSSYDFT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYECF',a%LSSYECF,b%LSSYECF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYFEH',a%LSSYFEH,b%LSSYFEH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYFEL',a%LSSYFEL,b%LSSYFEL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYGRB',a%LSSYGRB,b%LSSYGRB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYIBE',a%LSSYIBE,b%LSSYIBE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYIBI',a%LSSYIBI,b%LSSYIBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYJBM',a%LSSYJBM,b%LSSYJBM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYJEC',a%LSSYJEC,b%LSSYJEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYJIC',a%LSSYJIC,b%LSSYJIC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYLF3',a%LSSYLF3,b%LSSYLF3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYLF4',a%LSSYLF4,b%LSSYLF4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYLF6',a%LSSYLF6,b%LSSYLF6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYLFD',a%LSSYLFD,b%LSSYLFD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYLFH',a%LSSYLFH,b%LSSYLFH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYLFT',a%LSSYLFT,b%LSSYLFT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYLHE',a%LSSYLHE,b%LSSYLHE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYLHJ',a%LSSYLHJ,b%LSSYLHJ,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYMSE',a%LSSYMSE,b%LSSYMSE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYNER',a%LSSYNER,b%LSSYNER,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYNI3',a%LSSYNI3,b%LSSYNI3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYNI4',a%LSSYNI4,b%LSSYNI4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYNI6',a%LSSYNI6,b%LSSYNI6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYNID',a%LSSYNID,b%LSSYNID,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYNIH',a%LSSYNIH,b%LSSYNIH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYNIM',a%LSSYNIM,b%LSSYNIM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYNIT',a%LSSYNIT,b%LSSYNIT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYNMR',a%LSSYNMR,b%LSSYNMR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYOMG',a%LSSYOMG,b%LSSYOMG,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYPRS',a%LSSYPRS,b%LSSYPRS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYQBE',a%LSSYQBE,b%LSSYQBE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYQBI',a%LSSYQBI,b%LSSYQBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYQEC',a%LSSYQEC,b%LSSYQEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYQIC',a%LSSYQIC,b%LSSYQIC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYQPR',a%LSSYQPR,b%LSSYQPR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYRES',a%LSSYRES,b%LSSYRES,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYSBI',a%LSSYSBI,b%LSSYSBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYSIM',a%LSSYSIM,b%LSSYSIM,300,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYTER',a%LSSYTER,b%LSSYTER,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYTI2',a%LSSYTI2,b%LSSYTI2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYTQI',a%LSSYTQI,b%LSSYTQI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYV2F',a%LSSYV2F,b%LSSYV2F,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYVB2',a%LSSYVB2,b%LSSYVB2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYVC3',a%LSSYVC3,b%LSSYVC3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYVC4',a%LSSYVC4,b%LSSYVC4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYVC6',a%LSSYVC6,b%LSSYVC6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYVCD',a%LSSYVCD,b%LSSYVCD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYVCH',a%LSSYVCH,b%LSSYVCH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYVCT',a%LSSYVCT,b%LSSYVCT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYVEE',a%LSSYVEE,b%LSSYVEE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYVIE',a%LSSYVIE,b%LSSYVIE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYVMO',a%LSSYVMO,b%LSSYVMO,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYVP2',a%LSSYVP2,b%LSSYVP2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYVPO',a%LSSYVPO,b%LSSYVPO,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYVPR',a%LSSYVPR,b%LSSYVPR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYVTR',a%LSSYVTR,b%LSSYVTR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYZF2',a%LSSYZF2,b%LSSYZF2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LSSYZXR',a%LSSYZXR,b%LSSYZXR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LTABORT',a%LTABORT,b%LTABORT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LTAEP',a%LTAEP,b%LTAEP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LTFD0',a%LTFD0,b%LTFD0,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LTFDB',a%LTFDB,b%LTFDB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LTFDP',a%LTFDP,b%LTFDP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LTFDQ',a%LTFDQ,b%LTFDQ,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LTFDR',a%LTFDR,b%LTFDR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LTFDS',a%LTFDS,b%LTFDS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LTHFS',a%LTHFS,b%LTHFS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LTIME1',a%LTIME1,b%LTIME1,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LTIME2',a%LTIME2,b%LTIME2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LTIMEC',a%LTIMEC,b%LTIMEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LTIMECA',a%LTIMECA,b%LTIMECA,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LTIMECB',a%LTIMECB,b%LTIMECB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LTIMLH',a%LTIMLH,b%LTIMLH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LTIMNB',a%LTIMNB,b%LTIMNB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LTIMRF',a%LTIMRF,b%LTIMRF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LTIMRFF',a%LTIMRFF,b%LTIMRFF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LTPSI',a%LTPSI,b%LTPSI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LTSAW',a%LTSAW,b%LTSAW,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LVLTNB',a%LVLTNB,b%LVLTNB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXAXR',a%LXAXR,b%LXAXR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXBOL',a%LXBOL,b%LXBOL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXBPA',a%LXBPA,b%LXBPA,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXBPB',a%LXBPB,b%LXBPB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXD2F',a%LXD2F,b%LXD2F,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXDE2',a%LXDE2,b%LXDE2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXDF3',a%LXDF3,b%LXDF3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXDF4',a%LXDF4,b%LXDF4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXDF6',a%LXDF6,b%LXDF6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXDFD',a%LXDFD,b%LXDFD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXDFH',a%LXDFH,b%LXDFH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXDFT',a%LXDFT,b%LXDFT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXECF',a%LXECF,b%LXECF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXFD0',a%LXFD0,b%LXFD0,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXFDB',a%LXFDB,b%LXFDB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXFDP',a%LXFDP,b%LXFDP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXFDQ',a%LXFDQ,b%LXFDQ,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXFDR',a%LXFDR,b%LXFDR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXFDS',a%LXFDS,b%LXFDS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXFEH',a%LXFEH,b%LXFEH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXFEL',a%LXFEL,b%LXFEL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXFS',a%LXFS,b%LXFS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXGRB',a%LXGRB,b%LXGRB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXIBE',a%LXIBE,b%LXIBE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXIBI',a%LXIBI,b%LXIBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXJBM',a%LXJBM,b%LXJBM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXJEC',a%LXJEC,b%LXJEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXJIC',a%LXJIC,b%LXJIC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXLF3',a%LXLF3,b%LXLF3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXLF4',a%LXLF4,b%LXLF4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXLF6',a%LXLF6,b%LXLF6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXLFD',a%LXLFD,b%LXLFD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXLFH',a%LXLFH,b%LXLFH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXLFT',a%LXLFT,b%LXLFT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXLHE',a%LXLHE,b%LXLHE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXLHJ',a%LXLHJ,b%LXLHJ,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXMMX',a%LXMMX,b%LXMMX,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXMSE',a%LXMSE,b%LXMSE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXNER',a%LXNER,b%LXNER,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXNI3',a%LXNI3,b%LXNI3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXNI4',a%LXNI4,b%LXNI4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXNI6',a%LXNI6,b%LXNI6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXNID',a%LXNID,b%LXNID,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXNIH',a%LXNIH,b%LXNIH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXNIM',a%LXNIM,b%LXNIM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXNIT',a%LXNIT,b%LXNIT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXNMR',a%LXNMR,b%LXNMR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXOMG',a%LXOMG,b%LXOMG,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXPFC',a%LXPFC,b%LXPFC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXPRS',a%LXPRS,b%LXPRS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXQBE',a%LXQBE,b%LXQBE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXQBI',a%LXQBI,b%LXQBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXQEC',a%LXQEC,b%LXQEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXQIC',a%LXQIC,b%LXQIC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXQPR',a%LXQPR,b%LXQPR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXRES',a%LXRES,b%LXRES,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXRP2',a%LXRP2,b%LXRP2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXRPL',a%LXRPL,b%LXRPL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSBI',a%LXSBI,b%LXSBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSIM',a%LXSIM,b%LXSIM,8,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYAXR',a%LXSYAXR,b%LXSYAXR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYBOL',a%LXSYBOL,b%LXSYBOL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYBPA',a%LXSYBPA,b%LXSYBPA,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYBPB',a%LXSYBPB,b%LXSYBPB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYD2F',a%LXSYD2F,b%LXSYD2F,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYDE2',a%LXSYDE2,b%LXSYDE2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYDF3',a%LXSYDF3,b%LXSYDF3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYDF4',a%LXSYDF4,b%LXSYDF4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYDF6',a%LXSYDF6,b%LXSYDF6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYDFD',a%LXSYDFD,b%LXSYDFD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYDFH',a%LXSYDFH,b%LXSYDFH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYDFT',a%LXSYDFT,b%LXSYDFT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYECF',a%LXSYECF,b%LXSYECF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYFEH',a%LXSYFEH,b%LXSYFEH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYFEL',a%LXSYFEL,b%LXSYFEL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYGRB',a%LXSYGRB,b%LXSYGRB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYIBE',a%LXSYIBE,b%LXSYIBE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYIBI',a%LXSYIBI,b%LXSYIBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYJBM',a%LXSYJBM,b%LXSYJBM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYJEC',a%LXSYJEC,b%LXSYJEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYJIC',a%LXSYJIC,b%LXSYJIC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYLF3',a%LXSYLF3,b%LXSYLF3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYLF4',a%LXSYLF4,b%LXSYLF4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYLF6',a%LXSYLF6,b%LXSYLF6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYLFD',a%LXSYLFD,b%LXSYLFD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYLFH',a%LXSYLFH,b%LXSYLFH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYLFT',a%LXSYLFT,b%LXSYLFT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYLHE',a%LXSYLHE,b%LXSYLHE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYLHJ',a%LXSYLHJ,b%LXSYLHJ,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYMSE',a%LXSYMSE,b%LXSYMSE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYNER',a%LXSYNER,b%LXSYNER,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYNI3',a%LXSYNI3,b%LXSYNI3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYNI4',a%LXSYNI4,b%LXSYNI4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYNI6',a%LXSYNI6,b%LXSYNI6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYNID',a%LXSYNID,b%LXSYNID,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYNIH',a%LXSYNIH,b%LXSYNIH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYNIM',a%LXSYNIM,b%LXSYNIM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYNIT',a%LXSYNIT,b%LXSYNIT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYNMR',a%LXSYNMR,b%LXSYNMR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYOMG',a%LXSYOMG,b%LXSYOMG,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYPRS',a%LXSYPRS,b%LXSYPRS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYQBE',a%LXSYQBE,b%LXSYQBE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYQBI',a%LXSYQBI,b%LXSYQBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYQEC',a%LXSYQEC,b%LXSYQEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYQIC',a%LXSYQIC,b%LXSYQIC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYQPR',a%LXSYQPR,b%LXSYQPR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYRES',a%LXSYRES,b%LXSYRES,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYSBI',a%LXSYSBI,b%LXSYSBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYSIM',a%LXSYSIM,b%LXSYSIM,8,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYTER',a%LXSYTER,b%LXSYTER,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYTI2',a%LXSYTI2,b%LXSYTI2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYTQI',a%LXSYTQI,b%LXSYTQI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYV2F',a%LXSYV2F,b%LXSYV2F,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYVB2',a%LXSYVB2,b%LXSYVB2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYVC3',a%LXSYVC3,b%LXSYVC3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYVC4',a%LXSYVC4,b%LXSYVC4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYVC6',a%LXSYVC6,b%LXSYVC6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYVCD',a%LXSYVCD,b%LXSYVCD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYVCH',a%LXSYVCH,b%LXSYVCH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYVCT',a%LXSYVCT,b%LXSYVCT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYVEE',a%LXSYVEE,b%LXSYVEE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYVIE',a%LXSYVIE,b%LXSYVIE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYVMO',a%LXSYVMO,b%LXSYVMO,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYVP2',a%LXSYVP2,b%LXSYVP2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYVPO',a%LXSYVPO,b%LXSYVPO,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYVPR',a%LXSYVPR,b%LXSYVPR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYVTR',a%LXSYVTR,b%LXSYVTR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYZF2',a%LXSYZF2,b%LXSYZF2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXSYZXR',a%LXSYZXR,b%LXSYZXR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXTER',a%LXTER,b%LXTER,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXTI2',a%LXTI2,b%LXTI2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXTQI',a%LXTQI,b%LXTQI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXV2F',a%LXV2F,b%LXV2F,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXVB2',a%LXVB2,b%LXVB2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXVC3',a%LXVC3,b%LXVC3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXVC4',a%LXVC4,b%LXVC4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXVC6',a%LXVC6,b%LXVC6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXVCD',a%LXVCD,b%LXVCD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXVCH',a%LXVCH,b%LXVCH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXVCT',a%LXVCT,b%LXVCT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXVEE',a%LXVEE,b%LXVEE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXVIE',a%LXVIE,b%LXVIE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXVMO',a%LXVMO,b%LXVMO,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXVP2',a%LXVP2,b%LXVP2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXVPO',a%LXVPO,b%LXVPO,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXVPR',a%LXVPR,b%LXVPR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXVTR',a%LXVTR,b%LXVTR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXZF2',a%LXZF2,b%LXZF2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXZIMPS',a%LXZIMPS,b%LXZIMPS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXZIMPX',a%LXZIMPX,b%LXZIMPX,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXZIMPXS',a%LXZIMPXS,b%LXZIMPXS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LXZXR',a%LXZXR,b%LXZXR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LYRP2',a%LYRP2,b%LYRP2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LYRPL',a%LYRPL,b%LYRPL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LYSIM',a%LYSIM,b%LYSIM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LZFS',a%LZFS,b%LZFS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('LZPSI',a%LZPSI,b%LZPSI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('MMAX',a%MMAX,b%MMAX,1,iok)
  if(.not.iok) return
  call tdb_merge_test('MMX_MAXE',a%MMX_MAXE,b%MMX_MAXE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('MTRP2',a%MTRP2,b%MTRP2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('MTRPL',a%MTRPL,b%MTRPL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NANTECH_D',a%NANTECH_D,b%NANTECH_D,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NANTICH_D',a%NANTICH_D,b%NANTICH_D,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NANTLH_D',a%NANTLH_D,b%NANTLH_D,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NBDATA',a%NBDATA,b%NBDATA,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NDEAEP',a%NDEAEP,b%NDEAEP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NDFS',a%NDFS,b%NDFS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NDMDF',a%NDMDF,b%NDMDF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NDMFR',a%NDMFR,b%NDMFR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NDMMX',a%NDMMX,b%NDMMX,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NDMSE',a%NDMSE,b%NDMSE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NDPAEP',a%NDPAEP,b%NDPAEP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NDPFC',a%NDPFC,b%NDPFC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NDPFC_PRE',a%NDPFC_PRE,b%NDPFC_PRE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NEAEP',a%NEAEP,b%NEAEP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NEFD0',a%NEFD0,b%NEFD0,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NEFDB',a%NEFDB,b%NEFDB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NEFDP',a%NEFDP,b%NEFDP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NEFDQ',a%NEFDQ,b%NEFDQ,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NEFDR',a%NEFDR,b%NEFDR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NEFDS',a%NEFDS,b%NEFDS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NFRBCODE',a%NFRBCODE,b%NFRBCODE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NFRBMODE',a%NFRBMODE,b%NFRBMODE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NGMAX_D',a%NGMAX_D,b%NGMAX_D,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NHECFT',a%NHECFT,b%NHECFT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NHFMX',a%NHFMX,b%NHFMX,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NIMDF',a%NIMDF,b%NIMDF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NISSIM',a%NISSIM,b%NISSIM,300,iok)
  if(.not.iok) return
  call tdb_merge_test('NISX',a%NISX,b%NISX,300,iok)
  if(.not.iok) return
  call tdb_merge_test('NITSIM',a%NITSIM,b%NITSIM,8,iok)
  if(.not.iok) return
  call tdb_merge_test('NITX',a%NITX,b%NITX,8,iok)
  if(.not.iok) return
  call tdb_merge_test('NKAEP',a%NKAEP,b%NKAEP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NLIM',a%NLIM,b%NLIM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NMAPSIM',a%NMAPSIM,b%NMAPSIM,300,iok)
  if(.not.iok) return
  call tdb_merge_test('NMDXKF',a%NMDXKF,b%NMDXKF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NMIMP',a%NMIMP,b%NMIMP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NMOMD',a%NMOMD,b%NMOMD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NMUAEP',a%NMUAEP,b%NMUAEP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NMZEFF',a%NMZEFF,b%NMZEFF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NNSIM',a%NNSIM,b%NNSIM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NPACK',a%NPACK,b%NPACK,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NPAEP',a%NPAEP,b%NPAEP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NPELDA',a%NPELDA,b%NPELDA,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NPMDF',a%NPMDF,b%NPMDF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NPMSE',a%NPMSE,b%NPMSE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRHIS',a%NRHIS,b%NRHIS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRHIX',a%NRHIX,b%NRHIX,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIAXR',a%NRIAXR,b%NRIAXR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIBOL',a%NRIBOL,b%NRIBOL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIBPA',a%NRIBPA,b%NRIBPA,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIBPB',a%NRIBPB,b%NRIBPB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRID2F',a%NRID2F,b%NRID2F,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIDE2',a%NRIDE2,b%NRIDE2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIDF3',a%NRIDF3,b%NRIDF3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIDF4',a%NRIDF4,b%NRIDF4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIDF6',a%NRIDF6,b%NRIDF6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIDFD',a%NRIDFD,b%NRIDFD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIDFH',a%NRIDFH,b%NRIDFH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIDFT',a%NRIDFT,b%NRIDFT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIECF',a%NRIECF,b%NRIECF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIFD0',a%NRIFD0,b%NRIFD0,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIFDB',a%NRIFDB,b%NRIFDB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIFDP',a%NRIFDP,b%NRIFDP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIFDQ',a%NRIFDQ,b%NRIFDQ,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIFDR',a%NRIFDR,b%NRIFDR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIFDS',a%NRIFDS,b%NRIFDS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIFEH',a%NRIFEH,b%NRIFEH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIFEL',a%NRIFEL,b%NRIFEL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIGRB',a%NRIGRB,b%NRIGRB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIIBE',a%NRIIBE,b%NRIIBE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIIBI',a%NRIIBI,b%NRIIBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIJBM',a%NRIJBM,b%NRIJBM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIJEC',a%NRIJEC,b%NRIJEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIJIC',a%NRIJIC,b%NRIJIC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRILF3',a%NRILF3,b%NRILF3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRILF4',a%NRILF4,b%NRILF4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRILF6',a%NRILF6,b%NRILF6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRILFD',a%NRILFD,b%NRILFD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRILFH',a%NRILFH,b%NRILFH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRILFT',a%NRILFT,b%NRILFT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRILHE',a%NRILHE,b%NRILHE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRILHJ',a%NRILHJ,b%NRILHJ,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIMSE',a%NRIMSE,b%NRIMSE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRINER',a%NRINER,b%NRINER,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRINI3',a%NRINI3,b%NRINI3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRINI4',a%NRINI4,b%NRINI4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRINI6',a%NRINI6,b%NRINI6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRINID',a%NRINID,b%NRINID,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRINIH',a%NRINIH,b%NRINIH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRINIM',a%NRINIM,b%NRINIM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRINIT',a%NRINIT,b%NRINIT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRINMR',a%NRINMR,b%NRINMR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIOMG',a%NRIOMG,b%NRIOMG,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIPRS',a%NRIPRS,b%NRIPRS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIQBE',a%NRIQBE,b%NRIQBE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIQBI',a%NRIQBI,b%NRIQBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIQEC',a%NRIQEC,b%NRIQEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIQIC',a%NRIQIC,b%NRIQIC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIQPR',a%NRIQPR,b%NRIQPR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIRES',a%NRIRES,b%NRIRES,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRISBI',a%NRISBI,b%NRISBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRISIM',a%NRISIM,b%NRISIM,8,iok)
  if(.not.iok) return
  call tdb_merge_test('NRITER',a%NRITER,b%NRITER,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRITI2',a%NRITI2,b%NRITI2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRITQI',a%NRITQI,b%NRITQI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIV2F',a%NRIV2F,b%NRIV2F,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIVB2',a%NRIVB2,b%NRIVB2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIVC3',a%NRIVC3,b%NRIVC3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIVC4',a%NRIVC4,b%NRIVC4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIVC6',a%NRIVC6,b%NRIVC6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIVCD',a%NRIVCD,b%NRIVCD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIVCH',a%NRIVCH,b%NRIVCH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIVCT',a%NRIVCT,b%NRIVCT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIVEE',a%NRIVEE,b%NRIVEE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIVIE',a%NRIVIE,b%NRIVIE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIVMO',a%NRIVMO,b%NRIVMO,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIVP2',a%NRIVP2,b%NRIVP2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIVPO',a%NRIVPO,b%NRIVPO,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIVPR',a%NRIVPR,b%NRIVPR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIVTR',a%NRIVTR,b%NRIVTR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIZF2',a%NRIZF2,b%NRIZF2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRIZXR',a%NRIZXR,b%NRIZXR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRMFR',a%NRMFR,b%NRMFR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRMSE',a%NRMSE,b%NRMSE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRP2',a%NRP2,b%NRP2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRPL',a%NRPL,b%NRPL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NRPSI',a%NRPSI,b%NRPSI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSAWFLAG',a%NSAWFLAG,b%NSAWFLAG,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSC',a%NSC,b%NSC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSC_FMT',a%NSC_FMT,b%NSC_FMT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSEVENT',a%NSEVENT,b%NSEVENT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSEVPER',a%NSEVPER,b%NSEVPER,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSEVTBL',a%NSEVTBL,b%NSEVTBL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSEVWDS',a%NSEVWDS,b%NSEVWDS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSFAST_D',a%NSFAST_D,b%NSFAST_D,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYAXR',a%NSYAXR,b%NSYAXR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYBOL',a%NSYBOL,b%NSYBOL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYBPA',a%NSYBPA,b%NSYBPA,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYBPB',a%NSYBPB,b%NSYBPB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYD2F',a%NSYD2F,b%NSYD2F,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYDE2',a%NSYDE2,b%NSYDE2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYDF3',a%NSYDF3,b%NSYDF3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYDF4',a%NSYDF4,b%NSYDF4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYDF6',a%NSYDF6,b%NSYDF6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYDFD',a%NSYDFD,b%NSYDFD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYDFH',a%NSYDFH,b%NSYDFH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYDFT',a%NSYDFT,b%NSYDFT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYECF',a%NSYECF,b%NSYECF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYFEH',a%NSYFEH,b%NSYFEH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYFEL',a%NSYFEL,b%NSYFEL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYGRB',a%NSYGRB,b%NSYGRB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYIBE',a%NSYIBE,b%NSYIBE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYIBI',a%NSYIBI,b%NSYIBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYJBM',a%NSYJBM,b%NSYJBM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYJEC',a%NSYJEC,b%NSYJEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYJIC',a%NSYJIC,b%NSYJIC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYLF3',a%NSYLF3,b%NSYLF3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYLF4',a%NSYLF4,b%NSYLF4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYLF6',a%NSYLF6,b%NSYLF6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYLFD',a%NSYLFD,b%NSYLFD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYLFH',a%NSYLFH,b%NSYLFH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYLFT',a%NSYLFT,b%NSYLFT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYLHE',a%NSYLHE,b%NSYLHE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYLHJ',a%NSYLHJ,b%NSYLHJ,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYMSE',a%NSYMSE,b%NSYMSE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYNER',a%NSYNER,b%NSYNER,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYNI3',a%NSYNI3,b%NSYNI3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYNI4',a%NSYNI4,b%NSYNI4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYNI6',a%NSYNI6,b%NSYNI6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYNID',a%NSYNID,b%NSYNID,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYNIH',a%NSYNIH,b%NSYNIH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYNIM',a%NSYNIM,b%NSYNIM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYNIT',a%NSYNIT,b%NSYNIT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYNMR',a%NSYNMR,b%NSYNMR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYOMG',a%NSYOMG,b%NSYOMG,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYPRS',a%NSYPRS,b%NSYPRS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYQBE',a%NSYQBE,b%NSYQBE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYQBI',a%NSYQBI,b%NSYQBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYQEC',a%NSYQEC,b%NSYQEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYQIC',a%NSYQIC,b%NSYQIC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYQPR',a%NSYQPR,b%NSYQPR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYRES',a%NSYRES,b%NSYRES,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYSBI',a%NSYSBI,b%NSYSBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYSIM',a%NSYSIM,b%NSYSIM,8,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYTER',a%NSYTER,b%NSYTER,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYTI2',a%NSYTI2,b%NSYTI2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYTQI',a%NSYTQI,b%NSYTQI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYV2F',a%NSYV2F,b%NSYV2F,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYVB2',a%NSYVB2,b%NSYVB2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYVC3',a%NSYVC3,b%NSYVC3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYVC4',a%NSYVC4,b%NSYVC4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYVC6',a%NSYVC6,b%NSYVC6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYVCD',a%NSYVCD,b%NSYVCD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYVCH',a%NSYVCH,b%NSYVCH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYVCT',a%NSYVCT,b%NSYVCT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYVEE',a%NSYVEE,b%NSYVEE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYVIE',a%NSYVIE,b%NSYVIE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYVMO',a%NSYVMO,b%NSYVMO,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYVP2',a%NSYVP2,b%NSYVP2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYVPO',a%NSYVPO,b%NSYVPO,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYVPR',a%NSYVPR,b%NSYVPR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYVTR',a%NSYVTR,b%NSYVTR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYZF2',a%NSYZF2,b%NSYZF2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NSYZXR',a%NSYZXR,b%NSYZXR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NTABORT',a%NTABORT,b%NTABORT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NTAEP',a%NTAEP,b%NTAEP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NTFD0',a%NTFD0,b%NTFD0,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NTFDB',a%NTFDB,b%NTFDB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NTFDP',a%NTFDP,b%NTFDP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NTFDQ',a%NTFDQ,b%NTFDQ,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NTFDR',a%NTFDR,b%NTFDR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NTFDS',a%NTFDS,b%NTFDS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NTHFS',a%NTHFS,b%NTHFS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NTIME1',a%NTIME1,b%NTIME1,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NTIME2',a%NTIME2,b%NTIME2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NTIMEC',a%NTIMEC,b%NTIMEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NTIMECA',a%NTIMECA,b%NTIMECA,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NTIMECB',a%NTIMECB,b%NTIMECB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NTIMLH',a%NTIMLH,b%NTIMLH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NTIMNB',a%NTIMNB,b%NTIMNB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NTIMRF',a%NTIMRF,b%NTIMRF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NTIMRFF',a%NTIMRFF,b%NTIMRFF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NTPSI',a%NTPSI,b%NTPSI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NTSAW',a%NTSAW,b%NTSAW,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXAXR',a%NXAXR,b%NXAXR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXBOL',a%NXBOL,b%NXBOL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXBPA',a%NXBPA,b%NXBPA,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXBPB',a%NXBPB,b%NXBPB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXD2F',a%NXD2F,b%NXD2F,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXDE2',a%NXDE2,b%NXDE2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXDF3',a%NXDF3,b%NXDF3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXDF4',a%NXDF4,b%NXDF4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXDF6',a%NXDF6,b%NXDF6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXDFD',a%NXDFD,b%NXDFD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXDFH',a%NXDFH,b%NXDFH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXDFT',a%NXDFT,b%NXDFT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXECF',a%NXECF,b%NXECF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXFD0',a%NXFD0,b%NXFD0,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXFDB',a%NXFDB,b%NXFDB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXFDP',a%NXFDP,b%NXFDP,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXFDQ',a%NXFDQ,b%NXFDQ,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXFDR',a%NXFDR,b%NXFDR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXFDS',a%NXFDS,b%NXFDS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXFEH',a%NXFEH,b%NXFEH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXFEL',a%NXFEL,b%NXFEL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXFS',a%NXFS,b%NXFS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXGRB',a%NXGRB,b%NXGRB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXIBE',a%NXIBE,b%NXIBE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXIBI',a%NXIBI,b%NXIBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXJBM',a%NXJBM,b%NXJBM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXJEC',a%NXJEC,b%NXJEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXJIC',a%NXJIC,b%NXJIC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXLF3',a%NXLF3,b%NXLF3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXLF4',a%NXLF4,b%NXLF4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXLF6',a%NXLF6,b%NXLF6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXLFD',a%NXLFD,b%NXLFD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXLFH',a%NXLFH,b%NXLFH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXLFT',a%NXLFT,b%NXLFT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXLHE',a%NXLHE,b%NXLHE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXLHJ',a%NXLHJ,b%NXLHJ,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXMMX',a%NXMMX,b%NXMMX,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXMSE',a%NXMSE,b%NXMSE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXNE0',a%NXNE0,b%NXNE0,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXNER',a%NXNER,b%NXNER,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXNI3',a%NXNI3,b%NXNI3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXNI4',a%NXNI4,b%NXNI4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXNI6',a%NXNI6,b%NXNI6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXNID',a%NXNID,b%NXNID,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXNIH',a%NXNIH,b%NXNIH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXNIM',a%NXNIM,b%NXNIM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXNIT',a%NXNIT,b%NXNIT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXNM0',a%NXNM0,b%NXNM0,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXNMR',a%NXNMR,b%NXNMR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXOMG',a%NXOMG,b%NXOMG,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXPFC',a%NXPFC,b%NXPFC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXPRS',a%NXPRS,b%NXPRS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXQBE',a%NXQBE,b%NXQBE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXQBI',a%NXQBI,b%NXQBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXQEC',a%NXQEC,b%NXQEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXQIC',a%NXQIC,b%NXQIC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXQPR',a%NXQPR,b%NXQPR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXRES',a%NXRES,b%NXRES,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXRP2',a%NXRP2,b%NXRP2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXRPL',a%NXRPL,b%NXRPL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSBI',a%NXSBI,b%NXSBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSIM',a%NXSIM,b%NXSIM,8,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYAXR',a%NXSYAXR,b%NXSYAXR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYBOL',a%NXSYBOL,b%NXSYBOL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYBPA',a%NXSYBPA,b%NXSYBPA,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYBPB',a%NXSYBPB,b%NXSYBPB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYD2F',a%NXSYD2F,b%NXSYD2F,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYDE2',a%NXSYDE2,b%NXSYDE2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYDF3',a%NXSYDF3,b%NXSYDF3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYDF4',a%NXSYDF4,b%NXSYDF4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYDF6',a%NXSYDF6,b%NXSYDF6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYDFD',a%NXSYDFD,b%NXSYDFD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYDFH',a%NXSYDFH,b%NXSYDFH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYDFT',a%NXSYDFT,b%NXSYDFT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYECF',a%NXSYECF,b%NXSYECF,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYFEH',a%NXSYFEH,b%NXSYFEH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYFEL',a%NXSYFEL,b%NXSYFEL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYGRB',a%NXSYGRB,b%NXSYGRB,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYIBE',a%NXSYIBE,b%NXSYIBE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYIBI',a%NXSYIBI,b%NXSYIBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYJBM',a%NXSYJBM,b%NXSYJBM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYJEC',a%NXSYJEC,b%NXSYJEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYJIC',a%NXSYJIC,b%NXSYJIC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYLF3',a%NXSYLF3,b%NXSYLF3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYLF4',a%NXSYLF4,b%NXSYLF4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYLF6',a%NXSYLF6,b%NXSYLF6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYLFD',a%NXSYLFD,b%NXSYLFD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYLFH',a%NXSYLFH,b%NXSYLFH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYLFT',a%NXSYLFT,b%NXSYLFT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYLHE',a%NXSYLHE,b%NXSYLHE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYLHJ',a%NXSYLHJ,b%NXSYLHJ,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYMSE',a%NXSYMSE,b%NXSYMSE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYNER',a%NXSYNER,b%NXSYNER,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYNI3',a%NXSYNI3,b%NXSYNI3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYNI4',a%NXSYNI4,b%NXSYNI4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYNI6',a%NXSYNI6,b%NXSYNI6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYNID',a%NXSYNID,b%NXSYNID,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYNIH',a%NXSYNIH,b%NXSYNIH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYNIM',a%NXSYNIM,b%NXSYNIM,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYNIT',a%NXSYNIT,b%NXSYNIT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYNMR',a%NXSYNMR,b%NXSYNMR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYOMG',a%NXSYOMG,b%NXSYOMG,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYPRS',a%NXSYPRS,b%NXSYPRS,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYQBE',a%NXSYQBE,b%NXSYQBE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYQBI',a%NXSYQBI,b%NXSYQBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYQEC',a%NXSYQEC,b%NXSYQEC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYQIC',a%NXSYQIC,b%NXSYQIC,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYQPR',a%NXSYQPR,b%NXSYQPR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYRES',a%NXSYRES,b%NXSYRES,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYSBI',a%NXSYSBI,b%NXSYSBI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYSIM',a%NXSYSIM,b%NXSYSIM,8,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYTER',a%NXSYTER,b%NXSYTER,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYTI2',a%NXSYTI2,b%NXSYTI2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYTQI',a%NXSYTQI,b%NXSYTQI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYV2F',a%NXSYV2F,b%NXSYV2F,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYVB2',a%NXSYVB2,b%NXSYVB2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYVC3',a%NXSYVC3,b%NXSYVC3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYVC4',a%NXSYVC4,b%NXSYVC4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYVC6',a%NXSYVC6,b%NXSYVC6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYVCD',a%NXSYVCD,b%NXSYVCD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYVCH',a%NXSYVCH,b%NXSYVCH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYVCT',a%NXSYVCT,b%NXSYVCT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYVEE',a%NXSYVEE,b%NXSYVEE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYVIE',a%NXSYVIE,b%NXSYVIE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYVMO',a%NXSYVMO,b%NXSYVMO,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYVP2',a%NXSYVP2,b%NXSYVP2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYVPO',a%NXSYVPO,b%NXSYVPO,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYVPR',a%NXSYVPR,b%NXSYVPR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYVTR',a%NXSYVTR,b%NXSYVTR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYZF2',a%NXSYZF2,b%NXSYZF2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXSYZXR',a%NXSYZXR,b%NXSYZXR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXTE0',a%NXTE0,b%NXTE0,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXTER',a%NXTER,b%NXTER,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXTI2',a%NXTI2,b%NXTI2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXTQI',a%NXTQI,b%NXTQI,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXV2F',a%NXV2F,b%NXV2F,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXVB2',a%NXVB2,b%NXVB2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXVC3',a%NXVC3,b%NXVC3,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXVC4',a%NXVC4,b%NXVC4,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXVC6',a%NXVC6,b%NXVC6,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXVCD',a%NXVCD,b%NXVCD,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXVCH',a%NXVCH,b%NXVCH,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXVCT',a%NXVCT,b%NXVCT,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXVEE',a%NXVEE,b%NXVEE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXVIE',a%NXVIE,b%NXVIE,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXVMO',a%NXVMO,b%NXVMO,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXVP2',a%NXVP2,b%NXVP2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXVPO',a%NXVPO,b%NXVPO,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXVPR',a%NXVPR,b%NXVPR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXVTR',a%NXVTR,b%NXVTR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXZEF2',a%NXZEF2,b%NXZEF2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXZF2',a%NXZF2,b%NXZF2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NXZXR',a%NXZXR,b%NXZXR,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NYRP2',a%NYRP2,b%NYRP2,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NYRPL',a%NYRPL,b%NYRPL,1,iok)
  if(.not.iok) return
  call tdb_merge_test('NZPSI',a%NZPSI,b%NZPSI,1,iok)
  if(.not.iok) return
 
end subroutine tdb_merge_chk
