REAL*8 dval
dval = 0.0D0
& tname, ' ', ' ', tval, ival, dval, myThid )
& ' ', iname, ' ', ' ', ival, dval, myThid )
I vname, dname, dval,
& ' ', ' ', dname, ' ', ival, dval, myThid )
I tval, ival, dval,
mnc_cw_vdat(n,indv) = dval
I dval,
& ' ', len, dval, sZero, 0, myThid )
Real*8 dval(*)
& 2, ' ', nv, dval, sZero, iZero, myThid )
dvarr(1) = dval
& WRITE(msgBuf(36:57),'(1X,1P1E21.13)') dval
I itype, ival, dval,