OpenAD/code_shallow_openad/ad_s_ilnblnk.F

#include "CPP_EEOPTIONS.h"

CBOP
C     !ROUTINE: ILNBLNK

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

C     !DESCRIPTION:
C     *==========================================================*
C     | FUNCTION ILNBLNK                                         |
C     | o Find last non-blank in character string.               |
C     *==========================================================*

C     !INPUT PARAMETERS:
C     string :: string to scan
      CHARACTER*(*) string
      integer index

C     !LOCAL VARIABLES:
C     L, LS :: Temps. used in scanning string
      INTEGER L, LS
CEOP
C
      LS      = LEN(string)
      index = 0
      L=LS
      DO while ((L.gt.0).and.(string(L:L) .eq. ' '))
        L=L-1
      end do
      index = L
      END
1	utke	1.1	#include "CPP_EEOPTIONS.h"
2
3			CBOP
4			C !ROUTINE: ILNBLNK
5
6			C !INTERFACE:
7	utke	1.2	subroutine oad_s_ILNBLNK( string, index )
8	utke	1.1	IMPLICIT NONE
9
10			C !DESCRIPTION:
11			C ==========================================================
12			C \| FUNCTION ILNBLNK \|
13			C \| o Find last non-blank in character string. \|
14			C ==========================================================
15
16			C !INPUT PARAMETERS:
17			C string :: string to scan
18			CHARACTER() string
19			integer index
20
21			C !LOCAL VARIABLES:
22			C L, LS :: Temps. used in scanning string
23			INTEGER L, LS
24			CEOP
25			C
26			LS = LEN(string)
27			index = 0
28			L=LS
29			DO while ((L.gt.0).and.(string(L:L) .eq. ' '))
30			L=L-1
31			end do
32			index = L
33			END