nsp Function

function nsp(command)

Arguments

Type IntentOptional Attributes Name
character, intent(in) :: command

Return Value integer


Contents

Variables

i

Source Code

nsp

Variables

Type Visibility Attributes Name Initial
integer, public :: i

Source Code

   integer function nsp(command)
     implicit none
     character(*), intent(in) :: command
     integer :: i
     do i=1,len(command)
        if (command(i:i) /= ' ') then
           nsp = i
           return
        end if
     end do
     nsp = 0
   end function nsp