"2H_pwxcal macro"

BPrtppar('H2_pwxcal')
BPsetampmode
dn3='H2'
setfrq BPsetampmode
if (numrfch>3) then
 getparam('dof3D','H2'):dof3
 getparam('dmm3D','H2'):dmm3
 substr(dmm3,2,1):$d
 dmm3='cc'+$d
 getparam('dmf3D','H2'):dmf3
 getparam('dpwr3D','H2'):dpwr3
 getparam('dres3D','H2'):dres3
 getparam('dseq3D','H2'):dseq3
else
  exists('ampmode','parameter'):$e
  if ($e=1) then destroy('ampmode') endif
endif
tof=dof-(174-128)*sfrq  "assuming C6D6 is solvent for 13C observe"
reffrq=sfrq
spin='n' man('H2_pwxcal')
