#!/bin/perl -i.bak

# Alter code to make it suitable for EVP

undef $/;

while (<>) {

# s/ L_ICEFREEDR= .TRUE.,\n L_ICESIMPLE= .FALSE.,/ L_ICEEVP=.FALSE.,\n L_ICESSTILT=.FALSE.,\n L_ICYNPOL=.FALSE.,\n L_ICEFREEDR= .FALSE.,\n L_ICESIMPLE= .TRUE.,/;
s/ L_ICEFREEDR= .TRUE.,\n L_ICESIMPLE= .FALSE.,/ L_ICEEVP=.true.,\n L_ICESSTILT=.true.,\n L_ICYNPOL=.true.,\n L_ICEFREEDR= .true.,\n L_ICESIMPLE= .false.,/;

print;

};