|
Last change
on this file since 1974 was
135,
checked in by aslmd, 14 years ago
|
|
CHANGEMENT ARBORESCENCE ETAPE 2 -- NON COMPLET
|
-
Property svn:executable set to
*
|
|
File size:
642 bytes
|
| Line | |
|---|
| 1 | for i in $* ; do |
|---|
| 2 | list=$list.$i |
|---|
| 3 | done |
|---|
| 4 | fichdim=dimphy$list |
|---|
| 5 | |
|---|
| 6 | if [ ! -f $fichdim ] ; then |
|---|
| 7 | # si le fichier de dimensions n'existe pas, on le cree |
|---|
| 8 | |
|---|
| 9 | if [ $# -ge 3 ] ; then |
|---|
| 10 | im=$1 |
|---|
| 11 | jm=$2 |
|---|
| 12 | lm=$3 |
|---|
| 13 | else |
|---|
| 14 | echo il faut preciser les dimensions |
|---|
| 15 | exit |
|---|
| 16 | fi |
|---|
| 17 | |
|---|
| 18 | cat << EOF > $fichdim |
|---|
| 19 | c----------------------------------------------------------------------- |
|---|
| 20 | INTEGER KIDIA, KFDIA, KLON, KLEV |
|---|
| 21 | PARAMETER (KIDIA=1,KFDIA=$im*($jm-1)+2, |
|---|
| 22 | . KLON=KFDIA-KIDIA+1,KLEV=$lm) |
|---|
| 23 | c----------------------------------------------------------------------- |
|---|
| 24 | EOF |
|---|
| 25 | fi |
|---|
| 26 | |
|---|
| 27 | /bin/rm ../dimphy.h |
|---|
| 28 | tar cf - $fichdim | ( cd .. ; tar xf - ; mv $fichdim dimphy.h ) |
|---|
Note: See
TracBrowser
for help on using the repository browser.
