demo_get_args_fixed_length.f90 Source File


Contents


Source Code

           program demo_get_args_fixed_length
           use M_CLI2,  only : set_args, get_args_fixed_length
           implicit none
           ! DEFINE ARGS
           character(len=80)   :: title
           call set_args(' &
              & -title "my title" &
              & ')
           ! ASSIGN VALUES TO ELEMENTS
              call get_args_fixed_length('title',title)
           ! USE VALUES
              write(*,*)'title=',title
           end program demo_get_args_fixed_length