source: CPL/oasis3/trunk/src/mod/oasis3/src/empty.f @ 1677

Last change on this file since 1677 was 1677, checked in by aclsce, 12 years ago

Imported oasis3 (tag ipslcm5a) from cvs server to svn server (igcmg project).

File size: 1.8 KB
Line 
1      SUBROUTINE empty (cdchar, klen)
2C****
3C               ******************************
4C               * OASIS FUNCTION  -  LEVEL T *
5C               * --------------     ------- *
6C               ******************************
7C
8C**** *empty*  - Utility routine
9C
10C     Purpose:
11C     -------
12C     Fill up a character string with blanks
13C
14C**   Interface:
15C     ---------
16C       *call*  *empty (cdchar, klen)*
17C
18C     Input:
19C     -----
20C                cdchar : string to be filled up with blanks (char string)
21C                klen   : string length (integer)
22C
23C     Output:
24C     ------
25C                cdchar : string filled up with blanks
26C
27C     Workspace:
28C     ---------
29C     None
30C
31C     Externals:
32C     ---------
33C     None
34C
35C     Reference:
36C     ---------
37C     See OASIS manual (1995)
38C
39C     History:
40C     -------
41C       Version   Programmer     Date      Description
42C       -------   ----------     ----      ----------- 
43C       2.0       L. Terray      95/09/01  created
44C
45C %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46C
47C* ---------------------------- Include files ---------------------------
48C
49      USE mod_unit
50C
51C* ---------------------------- Argument declarations -------------------
52C
53      CHARACTER*1 cdchar
54      DIMENSION cdchar(klen)
55C
56C* ---------------------------- Local declarations -------------------
57C
58      CHARACTER (len=1), SAVE :: clblank = ' '
59C
60C* ---------------------------- Poema verses ----------------------------
61C
62C %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
63C
64C*    1. Fill s1 with blanks
65C        -------------------
66C
67      DO 110 ji = 1, klen
68        cdchar(ji) = clblank
69 110  CONTINUE
70C
71C
72C*    2. End of routine
73C        --------------
74C
75      RETURN
76      END
Note: See TracBrowser for help on using the repository browser.