| 1 |
utke |
1.1 |
#!/bin/csh -f |
| 2 |
|
|
foreach f ( $* ) |
| 3 |
|
|
echo 'converting '$f.h |
| 4 |
|
|
awk -f cb2m1.awk $f.h > ${f}_mod.FF90_temp.001 |
| 5 |
|
|
echo ' MODULE '${f}_mod > ${f}_mod.FF90_temp.002 |
| 6 |
|
|
echo '#include "CPP_OPTIONS.h"' >> ${f}_mod.FF90_temp.002 |
| 7 |
|
|
echo '#include "CPP_EEOPTIONS.h"' >> ${f}_mod.FF90_temp.002 |
| 8 |
|
|
if ( ${f} != 'SIZE' ) then |
| 9 |
|
|
echo ' use SIZE_mod' >> ${f}_mod.FF90_temp.002 |
| 10 |
|
|
endif |
| 11 |
|
|
if ( ${f} != 'EEPARAMS' && ${f} != 'SIZE') then |
| 12 |
|
|
echo ' use EEPARAMS_mod' >> ${f}_mod.FF90_temp.002 |
| 13 |
|
|
endif |
| 14 |
|
|
if ( ${f} != 'PARAMS' && ${f} != 'EEPARAMS' && ${f} != 'SIZE') then |
| 15 |
|
|
echo ' use PARAMS_mod' >> ${f}_mod.FF90_temp.002 |
| 16 |
|
|
endif |
| 17 |
|
|
cat ${f}_mod.FF90_temp.001 >> ${f}_mod.FF90_temp.002 |
| 18 |
|
|
echo ' END MODULE' ${f}_mod >> ${f}_mod.FF90_temp.002 |
| 19 |
|
|
cp ${f}_mod.FF90_temp.002 ${f}_mod.FF90 |
| 20 |
|
|
end |
| 21 |
|
|
\rm *_mod.FF90_temp.* |
| 22 |
|
|
|
| 23 |
|
|
foreach f ( *_mod.FF90 ) |
| 24 |
|
|
grep '^#' $f > ${f:r}.h_temp.001 |
| 25 |
|
|
echo ' USE '${f:r} >> ${f:r}.h_temp.001 |
| 26 |
|
|
cp ${f:r}.h_temp.001 ${f:r}.h |
| 27 |
|
|
end |
| 28 |
|
|
\rm *_mod.h_temp.* |
Parent Directory
| 
Revision Log
| 
Revision Graph