pkg/openad/ad_s_ifnblnk.F

C $Header:  $
C $Name:  $

#include "CPP_EEOPTIONS.h"

CBOP
C     !ROUTINE: IFNBLNK

C     !INTERFACE:
      subroutine oad_s_IFNBLNK( string, index )
      IMPLICIT NONE

C     !DESCRIPTION:
C     *==========================================================*
C     | FUNCTION IFNBLNK                                         |
C     | o Find first non-blank in character string.              |
C     *==========================================================*
C
C     !INPUT PARAMETERS:
C     string :: String to find first non-blank in.
      CHARACTER*(*) string
      integer index

C     !LOCAL VARIABLES:
C     L, LS :: Temps for string locations
      INTEGER L, LS
CEOP
C
      LS     = LEN(string)
      index = 0
      L=1
      DO while ((L.le.LS).and.(string(L:L) .eq. ' '))
        L=L+1
      end do
      index = L
      END
1	C $Header: $
2	C $Name: $
3
4	#include "CPP_EEOPTIONS.h"
5
6	CBOP
7	C !ROUTINE: IFNBLNK
8
9	C !INTERFACE:
10	subroutine oad_s_IFNBLNK( string, index )
11	IMPLICIT NONE
12
13	C !DESCRIPTION:
14	C ==========================================================
15	C \| FUNCTION IFNBLNK \|
16	C \| o Find first non-blank in character string. \|
17	C ==========================================================
18	C
19	C !INPUT PARAMETERS:
20	C string :: String to find first non-blank in.
21	CHARACTER() string
22	integer index
23
24	C !LOCAL VARIABLES:
25	C L, LS :: Temps for string locations
26	INTEGER L, LS
27	CEOP
28	C
29	LS = LEN(string)
30	index = 0
31	L=1
32	DO while ((L.le.LS).and.(string(L:L) .eq. ' '))
33	L=L+1
34	end do
35	index = L
36	END