1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
program demo3
!! @(#) example of **basic** use using just the bare essentials
use M_CLI2, only : set_args, get_args
implicit none
integer :: x, y
logical :: l
real :: size
character(len=:),allocatable :: title
print *,'demo3: just the bare essentials'
! define the command, set default values and read the command line
call set_args('-x 1 -y 10 --size 12.34567 -l F --title "my title"')
! get the values
call get_args('x',x, 'y',y,'l',l, 'size',size) ! all the non-allocatables
call get_args('title',title) ! do allocatables one at a time
! Done. All variables set and of the requested type
write(*,'(*("[",g0,"]":,1x))')x,y,size,l,title
end program demo3
|
