New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
str_c_to_for.h90 in NEMO/branches/UKMO/NEMO_4.0.2_ENHANCE-02_ISF_nemo/src/OCE/OBS – NEMO

source: NEMO/branches/UKMO/NEMO_4.0.2_ENHANCE-02_ISF_nemo/src/OCE/OBS/str_c_to_for.h90 @ 12709

Last change on this file since 12709 was 12709, checked in by mathiot, 4 years ago

NEMO_4.0.2_ENHANCE-02_ISF_nemo: remove svn keywords

  • Property svn:mime-type set to text/x-fortran
File size: 1.4 KB
Line 
1   !!----------------------------------------------------------------------
2   !! NEMO/OCE 4.0 , NEMO Consortium (2018)
3   !! $Id$
4   !! Software governed by the CeCILL license (see ./LICENSE)
5   !!----------------------------------------------------------------------
6
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.