source:
NEMO/branches/UKMO/NEMO_4.0.1_mirror/src/OCE/OBS/str_c_to_for.h90
@
15099
Last change on this file since 15099 was 11715, checked in by davestorkey, 5 years ago | |
---|---|
|
|
File size: 1.4 KB |
Rev | Line | |
---|---|---|
[2287] | 1 | !!---------------------------------------------------------------------- |
[9598] | 2 | !! NEMO/OCE 4.0 , NEMO Consortium (2018) |
[2287] | 3 | !! $Id$ |
[10068] | 4 | !! Software governed by the CeCILL license (see ./LICENSE) |
[2287] | 5 | !!---------------------------------------------------------------------- |
6 | ||
[2128] | 7 | SUBROUTINE str_c_to_for( cd_str ) |
8 | !!--------------------------------------------------------------------- | |
9 | !! | |
10 | !! *** ROUTINE str_c_to_for *** | |
11 | !! | |
12 | !! ** Purpose : Loop over a string and replace all non-printable | |
13 | !! ASCII characters with spaces assuming English | |
14 | !! characters only | |
15 | !! | |
16 | !! ** Method : Loop over a string and replace all non-printable | |
17 | !! ASCII characters with spaces assuming English | |
18 | !! characters only | |
19 | !! | |
20 | !! ** Action : | |
21 | !! | |
22 | !! History : | |
23 | !! ! : 06-05 (K. Mogensen) Original | |
24 | !! ! : 06-05 (A. Vidard) Cleaning up | |
25 | !! ! : 06-10 (A. Weaver) More cleaning | |
26 | !!--------------------------------------------------------------------- | |
27 | !! * Arguments | |
28 | CHARACTER(LEN=*), INTENT(INOUT) :: cd_str | |
29 | ||
30 | !! * Local declarations | |
31 | INTEGER :: & | |
32 | & ji | |
33 | ||
34 | DO ji = 1, LEN( cd_str ) | |
35 | IF ( ( IACHAR( cd_str(ji:ji) ) > 128 ) & | |
36 | & .OR.( IACHAR( cd_str(ji:ji) ) < 32 ) ) cd_str(ji:ji) = ' ' | |
37 | END DO | |
38 | ||
39 | END SUBROUTINE str_c_to_for |
Note: See TracBrowser
for help on using the repository browser.