#!/bin/csh

foreach file ('abcde_map.f' 'aerphot.f' 'alkcheck.f' 'aromatic.f' 'arom_data.f' 'autoox.f' 'autoox_v1.f.old' 'autoox_v2.f.old' 'bratio.f' 'brpri.f' 'calc_difvol.f' 'caox.f' 'cdcase.f' 'cdcase_gt2.f' 'chcksp.f' 'checkflags.f' 'checktrack.f' 'checktrack.f.bak' 'checktrack.f.underdevlpment' 'chemmap.f' 'ckgrppt.f' 'ckinpt.f' 'closring.f' 'cnum.f' 'codefg.f' 'common.h' 'compteur.f' 'count_ro2.f' 'dctsort.f' 'decomp.f' 'decomp_RO2NO2.f' 'decomp_ro.f' 'deloc.f' 'deloc.f.new' 'dhf.f' 'dhf_thf.f' 'dimerisation.f' 'dwrite.f' 'findring.f' 'findtree.f' 'fragm.f' 'gas2aero.f' 'gas2wall.f' 'general.h' 'getbrch.f' 'get_hydrate.f' 'getsigmas.f' 'gettrack.f' 'grbond.f' 'gromhe.f' 'haloic.f' 'heat2.f' 'hoadd_arom.f' 'hoadd_arom.f.bak' 'hoadd_arom.f.bak2' 'hoadd_arom.f.bak2_8avril' 'hoadd_arom.f.bak3_18mars' 'hoadd_c1.f' 'hoadd_c1.f.bak' 'hoadd_c2.f' 'hoadd_c3.f' 'hoadd_c5.f' 'hoadd_c6.f' 'hoadd_c7.f' 'ho_rad2.f' 'hvdiss2.f' 'hvdiss2.f.bak' 'hydol.f' 'in1chm.f' 'interacgrp.f' 'isom16.f' 'isomer.f' 'isomer.f.lastversion' 'isomer.f.save' 'isomer.h' 'isom_rate.f' 'jobakgr.f' 'khydration.f' 'kill_ester.f' 'lntreeCd.f' 'lntree.f' 'loader.f' 'lump_sec.f.old' 'mkbrcopy.f' 'mkcopy.f' 'molarw.f' 'molarw_number_withexceptions.f' 'multip.f' 'multip.f.bak' 'myrdaldata.f' 'nameben.f' 'naming.f' 'nannoolal_pvap.f' 'nannoolal_tb.f' 'nitrofol.f' 'nityield.f' 'no3add_c1.f' 'no3add_c2.f' 'no3add_c3.f' 'no3add_c5.f' 'no3add_c6.f' 'no3add_c7.f' 'no3rad.f' 'no3rad.f.new' 'nodmap.f' 'number.f' 'o3add_c1_cmv.f' 'o3add_c1.f' 'o3add_c2.f' 'o3add_c5.f' 'o3add_c7.f' 'o3rate.f' 'onum.f' 'openr.f' 'oprad.f' 'organic.h' 'prevdict.f' 'primes.f' 'prioty.f' 'rabsisom.f' 'rabsno3.f' 'rabsoh.f' 'rabsoh.f.bak' 'radchk.f' 'raddno3.f' 'ratings.f' 'rcoo2.f' 'rdbenson.f' 'rdchemin.f' 'rddict.f' 'rdfixmch.f' 'rdfixnam.f' 'rdhenry.f' 'rdhv.f' 'rdhydrat.f' 'rdkwrad.f' 'rdkwreact.f' 'rdoutgene.f' 'rdrate.f' 'rdspsp.f' 'rebond.f' 'rejoin.f' 'replace.csh' 'revers.f' 'rjgadd.f' 'rjgrm.f' 'rjsadd.f' 'rjsrm.f' 'ro2.f' 'ro2.f.tmp' 'ro.f' 'ro.f.cheyenne' 'rozone2.f' 'rxinit3.f' 'rxmeo2ro2.f' 'rxwrit3.f' 'rxwrit3wa.f' 'rxwrit_dyn.f' 'seliso.f' 'setchrom2.f' 'simpol1.f' 'single.f' 'sortbis.f' 'sortblen.f' 'sort.f' 'sortrank.f' 'sortunix.f' 'spreact.f' 'srch.f' 'srch.f.bak' 'srh5.f' 'stabilized_criegee_cmv.f' 'stabilized_criegee.f' 'stdchm.f' 'sthindrance_cmv.f' 'swap.f' 'timecommon.h' 'time_diff.f' 'treebr.f' 'uniqring.f' 'util2.f' 'util.f' 'write_partitionning.f' 'writopesp.f' 'xcrieg_cmv.f' 'xcrieg_cmv_upd.f' 'xcrieg.f' ) 

   sed -i 's/CHARACTER(LEN=l/CHARACTER(LEN=l/g' $file
end

