integer ival
ival = 0
& tname, ' ', ' ', tval, ival, dval, myThid )
I vname, iname, ival,
& ' ', iname, ' ', ' ', ival, dval, myThid )
& ' ', ' ', dname, ' ', ival, dval, myThid )
I tval, ival, dval,
mnc_cw_viat(n,indv) = ival
I ival,
integer ival(*)
& 4, ' ', nv, dZero, sZero, ival, myThid)
integer myThid, len, ival
& ' ', len, 0.0D0, sZero, ival, myThid )
INTEGER ival
ivarr(1) = ival
& WRITE(msgBuf(36:57),'(1X,I21)') ival
I itype, ival, dval,