SUBROUTINE MDSWRITEFIELDXZ(
call MDSWRITEFIELDXZ(
call MDSWRITEFIELDXZ( fname, ctrlprec,.FALSE., 'RL',