cla_get_command_argument Subroutine

public subroutine cla_get_command_argument(i, arg)

Arguments

Type IntentOptional Attributes Name
integer :: i
character(len=*) :: arg

Called by

proc~~cla_get_command_argument~~CalledByGraph proc~cla_get_command_argument cla_get_command_argument proc~cla_get_char cla_get_char proc~cla_get_char->proc~cla_get_command_argument proc~cla_show cla_show proc~cla_get_char->proc~cla_show proc~cla_key_present cla_key_present proc~cla_key_present->proc~cla_get_command_argument proc~cla_key_present->proc~cla_show proc~cla_validate_info cla_validate_info proc~cla_validate_info->proc~cla_get_command_argument interface~cla_get cla_get interface~cla_get->proc~cla_get_char proc~cla_get_float_r4 cla_get_float_r4 interface~cla_get->proc~cla_get_float_r4 proc~cla_get_float_r8 cla_get_float_r8 interface~cla_get->proc~cla_get_float_r8 proc~cla_get_int_i4 cla_get_int_i4 interface~cla_get->proc~cla_get_int_i4 proc~cla_get_int_i8 cla_get_int_i8 interface~cla_get->proc~cla_get_int_i8 proc~cla_get_logical cla_get_logical interface~cla_get->proc~cla_get_logical proc~cla_get_flag cla_get_flag proc~cla_get_flag->proc~cla_get_char proc~cla_get_float_r4->proc~cla_get_char proc~cla_get_float_r8->proc~cla_get_char proc~cla_get_int_i4->proc~cla_get_char proc~cla_get_int_i8->proc~cla_get_char proc~cla_get_logical->proc~cla_get_char proc~cla_show->proc~cla_get_char proc~cla_show->proc~cla_key_present proc~cla_validate cla_validate proc~cla_validate->proc~cla_validate_info proc~get_cla_gvec_to_jorek get_CLA_gvec_to_jorek proc~get_cla_gvec_to_jorek->proc~cla_key_present proc~get_cla_gvec_to_jorek->interface~cla_get proc~get_cla_gvec_to_jorek->proc~cla_validate program~gvec GVEC program~gvec->interface~cla_get program~gvec->proc~cla_validate

Source Code

    subroutine cla_get_command_argument(i,arg)
      implicit none
      integer :: i,n,nm1,nn
      character(len=*) :: arg
      if (cla_cla_len == 0) then
         call get_command_argument(i,arg)
      else
         nm1 = 0
         nn = 0
         do n=1,i
            nm1 = nn + nm1
            nn = index(cla_cla(nm1+1:),' ')
         end do
         arg(1:nn) = cla_cla(nm1+1:nm1+nn-1)
         arg(nn:) = ' '
!         write(*,*) 'trim(cla_cla)=',trim(cla_cla)
!         write(*,*) 'get_command_argument got : arg=',i,' val=',trim(arg)
      end if
    end subroutine cla_get_command_argument