endrec = ncvarrecsend(45)
integer ncvarrecsend ( maxcvars )
& ncvarrecsend,
endrec = ncvarrecsend(300+iarr)
ncvarrecsend(ivarindex) = ncvarrecsend_loc
endrec = ncvarrecsend(7)
endrec = ncvarrecsend(4)
endrec = ncvarrecsend(8)
endrec = ncvarrecsend(5)
endrec = ncvarrecsend(9)
endrec = ncvarrecsend(6)
endrec = ncvarrecsend(10)
endrec = ncvarrecsend(32)
endrec = ncvarrecsend(33)
endrec = ncvarrecsend(34)
endrec = ncvarrecsend(35)
endrec = ncvarrecsend(36)
endrec = ncvarrecsend(37)
endrec = ncvarrecsend(38)
endrec = ncvarrecsend(39)
endrec = ncvarrecsend(40)
endrec = ncvarrecsend(3)
endrec = ncvarrecsend(11 )
endrec = ncvarrecsend(12 )
endrec = ncvarrecsend(13 )
endrec = ncvarrecsend(14 )