forked from altMITgcm/MITgcm
-
Notifications
You must be signed in to change notification settings - Fork 0
/
ad_s_ilnblnk.F
36 lines (30 loc) · 900 Bytes
/
ad_s_ilnblnk.F
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
C $Header: /u/gcmpack/MITgcm/pkg/openad/ad_s_ilnblnk.F,v 1.2 2014/07/08 19:05:13 jmc Exp $
C $Name: $
#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