real*4 sZero
sZero = 0.
& sval, 0, 0.0D0, sZero, 0, myThid )
& ' ', len, dval, sZero, 0, myThid )
& ' ', len, 0.0D0, sZero, ival, myThid )
real*4 sZero(1)
sZero(1) = 0.0
& 1, sval, 0, dZero, sZero, iZero, myThid )
& 2, ' ', nv, dval, sZero, iZero, myThid )
& 4, ' ', nv, dZero, sZero, ival, myThid )