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