Parent Directory | Revision Log | Revision Graph | Patch
revision 1.2 by jmc, Mon Oct 8 23:58:22 2007 UTC | revision 1.3 by jmc, Mon Sep 14 16:18:14 2009 UTC | |
---|---|---|
# | Line 15 C $Name$ | Line 15 C $Name$ |
15 | ||
16 | ! Convert the integer array to characters | ! Convert the integer array to characters |
17 | do j=1,MAXLEN_COMP_NAME | do j=1,MAXLEN_COMP_NAME |
18 | carg(j:j) = char( int( 0.5+rarg(j) ) ) | carg(j:j) = char( nint( rarg(j) ) ) |
19 | enddo | enddo |
20 | ||
21 | ! ------------------------------------------------------------------ | ! ------------------------------------------------------------------ |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |