& useImportSLP, useImportSIce, useImportFIce,
LOGICAL useImportFIce
useImportFIce = .FALSE.
CALL WRITE_0D_L( useImportFIce , INDEX_NONE,
useImportFIce = .TRUE.