From c90b03d66d387e876f2ccdf9f03986566696ef39 Mon Sep 17 00:00:00 2001
From: Theophile Terraz <theophile.terraz@inrae.fr>
Date: Tue, 22 Nov 2022 14:48:40 +0100
Subject: [PATCH] add command line argument for study name
---
rubarbe.f | 7 +++++--
rubarbe.f90 | 7 +++++--
2 files changed, 10 insertions(+), 4 deletions(-)
diff --git a/rubarbe.f b/rubarbe.f
index fb73708..0748dd4 100644
--- a/rubarbe.f
+++ b/rubarbe.f
@@ -682,8 +682,11 @@ cliq WRITE(*,*)'# #'
WRITE(*,*)'# #'
WRITE(*,*)'##################################################'
WRITE(*,*)
- WRITE(*,'(A)')' ENTREZ LE NOM DE L ETUDE :'
- READ(*,'(A20)') ETUDEDD
+ call getarg(1,ETUDEDD)
+ if (trim(ETUDEDD) == '') then
+ WRITE(*,'(A)')' ENTREZ LE NOM DE L ETUDE :'
+ READ(*,'(A20)') ETUDEDD
+ end if
WRITE(*,*)
C INITIALISATIONS, PREPARATION DU CALCUL
diff --git a/rubarbe.f90 b/rubarbe.f90
index 8488265..c5c95ce 100644
--- a/rubarbe.f90
+++ b/rubarbe.f90
@@ -702,8 +702,11 @@
WRITE(*,*)'# #'
WRITE(*,*)'##################################################'
WRITE(*,*)
- WRITE(*,'(A)')' ENTREZ LE NOM DE L ETUDE :'
- READ(*,'(A20)') ETUDEDD
+ call getarg(1,ETUDEDD)
+ if (trim(ETUDEDD) == '') then
+ WRITE(*,'(A)')' ENTREZ LE NOM DE L ETUDE :'
+ READ(*,'(A20)') ETUDEDD
+ end if
WRITE(*,*)
! INITIALISATIONS, PREPARATION DU CALCUL
--
GitLab