#!/bin/perl -w -i -p

# See mk_evp for use

undef $/;

s/(\&SEAICENL.*?\&END)/$1\n\n \&ICEEVPNL\n dte=30,cw=1.00,sw=0.00,ecc2=4.00,eyc=0.30,cstar=20.0,\n pstar=27.0e3,\n \&END/ms;