CALL WRITE_0D_I( GM_BVP_ModeNumber, INDEX_NONE,
GM_BVP_ModeNumber = 1
GM_BVP_rModeNumber = 1. _d 0/DBLE(GM_BVP_ModeNumber)
& GM_UseBVP, GM_BVP_cMin, GM_BVP_ModeNumber,