demo1B Program

Uses

Contents

Source Code


Variables

TypeAttributesNameInitial
integer, allocatable:: p(:)
real :: sum
character(len=:), allocatable:: title

Source Code

program demo1B
use M_CLI2, only : set_args, lget, rget, sget, igets
implicit none
real                          :: sum
integer,allocatable           :: p(:)
character(len=:),allocatable  :: title
   !
   ! Define command and default values and parse supplied command line options
   call set_args('-x 1 -y 2.0 -z 3.5e0 -p 11,-22,33 --title "my title" -B F',&

       & help_text=[character(len=80):: &

       & 'NAME                                                             ',&
       & '   show(1) -- my little show and tell                            ',&
       & 'DESCRIPTION                                                      ',&
       & '   Lets create an argument.                                      ',&
       & 'OPTIONS                                                          ',&
       & '    x,y,z    some REAL arguments                                 ',&
       & '    p        make a point                                        ',&
       & '    title    duke, marquis, honorable, esquire, etc.             ',&
       & '    B        to be or not to be                                  ',&
       & ''], &

       & version_text=[character(len=20):: &
       & 'version 0.0.0'] )
   !
   ! Get values using convenience functions
   sum=rget('x') + rget('y') + rget('z')
   title=sget('title')
   p=igets('p')
   !
   ! use the values
   if (lget('B'))then
      write(*,*)'to be'
   else
      write(*,*)'not to be'
   endif
   write(*,*)sum,p,title
end program demo1B