& doInitXX, doPackDiag, doZscaleUnpack, doZscalePack,
& doPackDiag,
logical doPackDiag
doPackDiag = .FALSE.
if ( doPackDiag ) then