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