| File |
Line number |
Procedure |
Code |
|
./pkg/openad/ad_s_ifnblnk.F |
10 |
OAD_S_IFNBLNK |
subroutine OAD_S_IFNBLNK( string, index ) |
|
./pkg/openad/ad_s_ifnblnk.F |
21 |
OAD_S_IFNBLNK |
CHARACTER*(*) string |
|
./pkg/openad/ad_s_ifnblnk.F |
29 |
OAD_S_IFNBLNK |
LS = LEN(string) |
|
./pkg/openad/ad_s_ifnblnk.F |
32 |
OAD_S_IFNBLNK |
DO while ((L.le.LS).and.(string(L:L) .eq. ' ')) |
|
./pkg/openad/ad_s_ilnblnk.F |
10 |
OAD_S_ILNBLNK |
subroutine OAD_S_ILNBLNK( string, index ) |
|
./pkg/openad/ad_s_ilnblnk.F |
21 |
OAD_S_ILNBLNK |
CHARACTER*(*) string |
|
./pkg/openad/ad_s_ilnblnk.F |
29 |
OAD_S_ILNBLNK |
LS = LEN(string) |
|
./pkg/openad/ad_s_ilnblnk.F |
32 |
OAD_S_ILNBLNK |
DO while ((L.gt.0).and.(string(L:L) .eq. ' ')) |
|
./verification/flt_example/extra/cvprofiles.F |
650 |
NO PROCEDURE |
INTEGER FUNCTION ILNBLNK( string ) |
|
./verification/flt_example/extra/cvprofiles.F |
656 |
NO PROCEDURE |
CHARACTER*(*) string |
|
./verification/flt_example/extra/cvprofiles.F |
660 |
NO PROCEDURE |
LS = LEN(string) |
|
./verification/flt_example/extra/cvprofiles.F |
663 |
NO PROCEDURE |
IF ( string(L:L) .EQ. ' ' ) GOTO 10 |
|
./optim/optim_main.F |
109 |
NO PROCEDURE |
INTEGER FUNCTION IFNBLNK( string ) |
|
./optim/optim_main.F |
116 |
NO PROCEDURE |
CHARACTER*(*) string |
|
./optim/optim_main.F |
121 |
NO PROCEDURE |
LS = LEN(string) |
|
./optim/optim_main.F |
124 |
NO PROCEDURE |
IF ( string(L:L) .EQ. ' ' ) GOTO 10 |
|
./optim/optim_main.F |
134 |
NO PROCEDURE |
INTEGER FUNCTION ILNBLNK( string ) |
|
./optim/optim_main.F |
140 |
NO PROCEDURE |
CHARACTER*(*) string |
|
./optim/optim_main.F |
144 |
NO PROCEDURE |
LS = LEN(string) |
|
./optim/optim_main.F |
147 |
NO PROCEDURE |
IF ( string(L:L) .EQ. ' ' ) GOTO 10 |
|
./optim/utils.F |
103 |
DATE |
CHARACTER*(*) string |
|
./optim/utils.F |
107 |
DATE |
LS = LEN(string) |
|
./optim/utils.F |
110 |
DATE |
IF ( string(L:L) .EQ. ' ' ) GOTO 10 |
|
./optim/utils.F |
140 |
LCASE |
SUBROUTINE LCASE ( string ) |
|
./optim/utils.F |
146 |
LCASE |
CHARACTER*(*) string |
|
./optim/utils.F |
156 |
LCASE |
DO 10 I = 1, LEN(string) |
|
./optim/utils.F |
157 |
LCASE |
L = INDEX(UPPER,string(I:I)) |
|
./optim/utils.F |
159 |
LCASE |
string(I:I) = LOWER(L:L) |
|
./optim/utils.F |
166 |
MACHINE |
SUBROUTINE MACHINE ( string ) |
|
./optim/utils.F |
174 |
MACHINE |
CHARACTER*(*) string |
|
./optim/utils.F |
18 |
DATE |
SUBROUTINE DATE ( string , myThreadId ) |
|
./optim/utils.F |
192 |
MACHINE |
idSize = LEN(string) |
|
./optim/utils.F |
231 |
MACHINE |
string = idString |
|
./optim/utils.F |
237 |
UCASE |
SUBROUTINE UCASE ( string ) |
|
./optim/utils.F |
240 |
UCASE |
CHARACTER*(*) string |
|
./optim/utils.F |
249 |
UCASE |
DO 10 I = 1, LEN(string) |
|
./optim/utils.F |
250 |
UCASE |
L = INDEX(LOWER,string(I:I)) |
|
./optim/utils.F |
252 |
UCASE |
string(I:I) = UPPER(L:L) |
|
./optim/utils.F |
27 |
DATE |
CHARACTER*(*) string |
|
./optim/utils.F |
35 |
DATE |
IF ( LEN(string) .LT. lDate ) GOTO 901 |
|
./optim/utils.F |
36 |
DATE |
string = ' ' |
|
./optim/utils.F |
38 |
DATE |
CALL FDATE( string ) |
|
./optim/utils.F |
72 |
DATE |
INTEGER FUNCTION IFNBLNK( string ) |
|
./optim/utils.F |
79 |
DATE |
CHARACTER*(*) string |
|
./optim/utils.F |
84 |
DATE |
LS = LEN(string) |
|
./optim/utils.F |
87 |
DATE |
IF ( string(L:L) .EQ. ' ' ) GOTO 10 |
|
./optim/utils.F |
97 |
DATE |
INTEGER FUNCTION ILNBLNK( string ) |
|
./eesupp/src/timers.F |
887 |
TIMER_START |
SUBROUTINE TIMER_START ( string , myThreadId ) |
|
./eesupp/src/timers.F |
896 |
TIMER_START |
CHARACTER*(*) string |
|
./eesupp/src/timers.F |
900 |
TIMER_START |
CALL TIMER_CONTROL( string, 'START', 'TIMER_START' , myThreadId) |
|
./eesupp/src/timers.F |
910 |
TIMER_STOP |
SUBROUTINE TIMER_STOP ( string , myThreadId ) |
|
./eesupp/src/timers.F |
919 |
TIMER_STOP |
CHARACTER*(*) string |
|
./eesupp/src/timers.F |
923 |
TIMER_STOP |
CALL TIMER_CONTROL( string, 'STOP', 'TIMER_STOP' , myThreadId ) |
|
./eesupp/src/utils.F |
102 |
DATE |
CHARACTER*(*) string |
|
./eesupp/src/utils.F |
109 |
DATE |
LS = LEN(string) |
|
./eesupp/src/utils.F |
112 |
DATE |
IF ( string(L:L) .EQ. ' ' ) GOTO 10 |
|
./eesupp/src/utils.F |
126 |
DATE |
INTEGER FUNCTION ILNBLNK( string ) |
|
./eesupp/src/utils.F |
137 |
DATE |
CHARACTER*(*) string |
|
./eesupp/src/utils.F |
144 |
DATE |
LS = LEN(string) |
|
./eesupp/src/utils.F |
148 |
DATE |
IF ( string(L:L) .EQ. ' ' ) GOTO 10 |
|
./eesupp/src/utils.F |
193 |
LCASE |
SUBROUTINE LCASE ( string ) |
|
./eesupp/src/utils.F |
203 |
LCASE |
CHARACTER*(*) string |
|
./eesupp/src/utils.F |
215 |
LCASE |
DO 10 I = 1, LEN(string) |
|
./eesupp/src/utils.F |
216 |
LCASE |
L = INDEX(UPPER,string(I:I)) |
|
./eesupp/src/utils.F |
218 |
LCASE |
string(I:I) = LOWER(L:L) |
|
./eesupp/src/utils.F |
229 |
MACHINE |
SUBROUTINE MACHINE ( string ) |
|
./eesupp/src/utils.F |
23 |
DATE |
SUBROUTINE DATE ( string , myThreadId ) |
|
./eesupp/src/utils.F |
248 |
MACHINE |
CHARACTER*(*) string |
|
./eesupp/src/utils.F |
265 |
MACHINE |
idSize = LEN(string) |
|
./eesupp/src/utils.F |
304 |
MACHINE |
string = idString |
|
./eesupp/src/utils.F |
314 |
UCASE |
SUBROUTINE UCASE ( string ) |
|
./eesupp/src/utils.F |
321 |
UCASE |
CHARACTER*(*) string |
|
./eesupp/src/utils.F |
333 |
UCASE |
DO 10 I = 1, LEN(string) |
|
./eesupp/src/utils.F |
334 |
UCASE |
L = INDEX(LOWER,string(I:I)) |
|
./eesupp/src/utils.F |
336 |
UCASE |
string(I:I) = UPPER(L:L) |
|
./eesupp/src/utils.F |
39 |
DATE |
CHARACTER*(*) string |
|
./eesupp/src/utils.F |
50 |
DATE |
IF ( LEN(string) .LT. lDate ) GOTO 901 |
|
./eesupp/src/utils.F |
51 |
DATE |
string = ' ' |
|
./eesupp/src/utils.F |
53 |
DATE |
CALL FDATE( string ) |
|
./eesupp/src/utils.F |
91 |
DATE |
INTEGER FUNCTION IFNBLNK( string ) |