integer nv

      _RL     xx(nv)

     I                          nv,

      print *,'pathei: writing ', nv,' sized control to file',

      call OPTIM_WRITEDATA( nv, ctrlname, lheaderonly, ff, xx )

      integer vid, nv, ind_g_finfo, needed, nvar

      nv = mnc_fv_ids(indf,1)

      i = 2 + nv*3

      mnc_fv_ids(indf,1) = nv + 1

     I     nv, 

      integer myThid,nv

     &     2, ' ', nv, dval, sZero, iZero, myThid)

     I     nv, 

      integer myThid,nv

     &     3, ' ', nv, dZero, rval, iZero, myThid)

     I     nv, 

      integer myThid,nv

     &     4, ' ', nv, dZero, sZero, ival, myThid)