source:
branches/dev_1784_OBS/NEMO/OPA_SRC/OBS/str_c_to_for.h90
@
2001
Last change on this file since 2001 was 2001, checked in by djlea, 14 years ago | |
---|---|
File size: 1.2 KB |
Line | |
---|---|
1 | SUBROUTINE str_c_to_for( cd_str ) |
2 | !!--------------------------------------------------------------------- |
3 | !! |
4 | !! *** ROUTINE str_c_to_for *** |
5 | !! |
6 | !! ** Purpose : Loop over a string and replace all non-printable |
7 | !! ASCII characters with spaces assuming English |
8 | !! characters only |
9 | !! |
10 | !! ** Method : Loop over a string and replace all non-printable |
11 | !! ASCII characters with spaces assuming English |
12 | !! characters only |
13 | !! |
14 | !! ** Action : |
15 | !! |
16 | !! History : |
17 | !! ! : 06-05 (K. Mogensen) Original |
18 | !! ! : 06-05 (A. Vidard) Cleaning up |
19 | !! ! : 06-10 (A. Weaver) More cleaning |
20 | !!--------------------------------------------------------------------- |
21 | !! * Arguments |
22 | CHARACTER(LEN=*), INTENT(INOUT) :: & |
23 | & cd_str |
24 | |
25 | !! * Local declarations |
26 | INTEGER :: & |
27 | & ji |
28 | |
29 | DO ji = 1, LEN( cd_str ) |
30 | IF ( ( IACHAR( cd_str(ji:ji) ) > 128 ) & |
31 | & .OR.( IACHAR( cd_str(ji:ji) ) < 32 ) ) cd_str(ji:ji) = ' ' |
32 | END DO |
33 | |
34 | END SUBROUTINE str_c_to_for |
Note: See TracBrowser
for help on using the repository browser.