pkg/openad/ad_s_ilnblnk.F

5dddee4ea2 Jean*0001 #include "CPP_EEOPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: ILNBLNK
                0005
                0006 C     !INTERFACE:
f9d7cbfb72 Ou W*0007       SUBROUTINE oad_s_ILNBLNK( string, index )
5dddee4ea2 Jean*0008       IMPLICIT NONE
                0009
                0010 C     !DESCRIPTION:
                0011 C     *==========================================================*
                0012 C     | FUNCTION ILNBLNK                                         |
                0013 C     | o Find last non-blank in character string.               |
                0014 C     *==========================================================*
                0015
                0016 C     !INPUT PARAMETERS:
                0017 C     string :: string to scan
                0018       CHARACTER*(*) string
f9d7cbfb72 Ou W*0019       INTEGER index
5dddee4ea2 Jean*0020
                0021 C     !LOCAL VARIABLES:
f9d7cbfb72 Ou W*0022 C     L  :: Temp. used in scanning string
                0023       INTEGER L
5dddee4ea2 Jean*0024 CEOP
f9d7cbfb72 Ou W*0025
5dddee4ea2 Jean*0026       index = 0
f9d7cbfb72 Ou W*0027       L = LEN(string)
                0028       DO WHILE ( L .GT. 0 )
                0029         IF ( string(L:L) .NE. ' ' ) THEN
                0030           index = L
                0031           L = 0
                0032         ELSE
                0033           L = L - 1
                0034         ENDIF
                0035       ENDDO
5dddee4ea2 Jean*0036       END