pkg/openad/ad_s_ifnblnk.F

5dddee4ea2 Jean*0001 #include "CPP_EEOPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: IFNBLNK
                0005
                0006 C     !INTERFACE:
                0007       subroutine oad_s_IFNBLNK( string, index )
                0008       IMPLICIT NONE
                0009
                0010 C     !DESCRIPTION:
                0011 C     *==========================================================*
                0012 C     | FUNCTION IFNBLNK                                         |
                0013 C     | o Find first non-blank in character string.              |
                0014 C     *==========================================================*
                0015 C
                0016 C     !INPUT PARAMETERS:
                0017 C     string :: String to find first non-blank in.
                0018       CHARACTER*(*) string
                0019       integer index
                0020
                0021 C     !LOCAL VARIABLES:
                0022 C     L, LS :: Temps for string locations
                0023       INTEGER L, LS
                0024 CEOP
                0025 C
                0026       LS     = LEN(string)
                0027       index = 0
                0028       L=1
                0029       DO while ((L.le.LS).and.(string(L:L) .eq. ' '))
                0030         L=L+1
                0031       end do
                0032       index = L
                0033       END