call cg_iric_writegridcoord1d_f(nx, x, ier)
ier = cg_iRIC_WriteGridCoord1d(nx, x);
cg_iRIC_WriteGridCoord1d(nx, x)