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