Manual Reference Pages - achar (3fortran)

NAME

ACHAR(3) - [CHARACTER:CONVERSION] Returns a character in a specified position in the ASCII collating sequence

SYNOPSIS

result = achar(i [,kind])

         elemental character(len=1,kind=KIND) function achar(i,KIND)

          integer(kind=**),intent(in) :: i
          integer(kind=**),intent(in),optional :: KIND

CHARACTERISTICS

o a kind designated as ** may be any supported kind for the type

o The character kind returned is the value of KIND if present. otherwise, a single default character is returned.

DESCRIPTION

ACHAR(3) returns the character located at position I (commonly called the ADE or ASCII Decimal Equivalent) in the ASCII collating sequence.
The ACHAR(3) function is often used for generating in-band escape sequences to control terminal attributes, as it makes it easy to print unprintable characters such as escape and tab. For example:
       write(*,’(*(a))’)achar(27),’[2J’
will clear the screen on an ANSI-compatible terminal display,

NOTE

The ADEs (ASCII Decimal Equivalents) for ASCII are

    *-------*-------*-------*-------*-------*-------*-------*-------*
    | 00 nul| 01 soh| 02 stx| 03 etx| 04 eot| 05 enq| 06 ack| 07 bel|
    | 08 bs | 09 ht | 10 nl | 11 vt | 12 np | 13 cr | 14 so | 15 si |
    | 16 dle| 17 dc1| 18 dc2| 19 dc3| 20 dc4| 21 nak| 22 syn| 23 etb|
    | 24 can| 25 em | 26 sub| 27 esc| 28 fs | 29 gs | 30 rs | 31 us |
    | 32 sp | 33  ! | 34  " | 35  # | 36  $ | 37  % | 38  & | 39  ’ |
    | 40  ( | 41  ) | 42  * | 43  + | 44  , | 45  - | 46  . | 47  / |
    | 48  0 | 49  1 | 50  2 | 51  3 | 52  4 | 53  5 | 54  6 | 55  7 |
    | 56  8 | 57  9 | 58  : | 59  ; | 60  < | 61  = | 62  > | 63  ? |
    | 64  @ | 65  A | 66  B | 67  C | 68  D | 69  E | 70  F | 71  G |
    | 72  H | 73  I | 74  J | 75  K | 76  L | 77  M | 78  N | 79  O |
    | 80  P | 81  Q | 82  R | 83  S | 84  T | 85  U | 86  V | 87  W |
    | 88  X | 89  Y | 90  Z | 91  [ | 92  \ | 93  ] | 94  ^ | 95  _ |
    | 96  ‘ | 97  a | 98  b | 99  c |100  d |101  e |102  f |103  g |
    |104  h |105  i |106  j |107  k |108  l |109  m |110  n |111  o |
    |112  p |113  q |114  r |115  s |116  t |117  u |118  v |119  w |
    |120  x |121  y |122  z |123  { |124  | |125  } |126  ~ |127 del|
    *-------*-------*-------*-------*-------*-------*-------*-------*

OPTIONS

o I : the integer value to convert to an ASCII character, in the range 0 to 127. : ACHAR(3) shall have the value C for any character C capable of representation as a default character.

o KIND : a integer initialization expression indicating the kind parameter of the result.

RESULT

Assuming I has a value in the range 0 <= I <= 127, the result is the character in position I of the ASCII collating sequence, provided the processor is capable of representing that character in the character kind of the result; otherwise, the result is processor dependent.

EXAMPLES

Sample program:

    program demo_achar
    use,intrinsic::iso_fortran_env,only:int8,int16,int32,int64
    implicit none
    integer :: i
       i=65
       write(*,’("decimal     =",i0)’)i
       write(*,’("character   =",a1)’)achar(i)
       write(*,’("binary      =",b0)’)achar(i)
       write(*,’("octal       =",o0)’)achar(i)
       write(*,’("hexadecimal =",z0)’)achar(i)

       write(*,’(8(i3,1x,a,1x),/)’)(i,achar(i), i=32,126)

       write(*,’(a)’)upper(’Mixed Case’)
    contains
    ! a classic use of achar(3) is to convert the case of a string

    pure elemental function upper(str) result (string)
    !
    !$@(#) upper(3f): function to return a trimmed uppercase-only string
    !
    ! input string to convert to all uppercase
    character(*), intent(in)      :: str
    ! output string that contains no miniscule letters
    character(len(str))           :: string
    integer                       :: i, iend
    integer,parameter             :: toupper = iachar(’A’)-iachar(’a’)
       iend=len_trim(str)
       ! initialize output string to trimmed input string
       string = str(:iend)
       ! process each letter in the string
       do concurrent (i = 1:iend)
           select case (str(i:i))
           ! located miniscule letter
           case (’a’:’z’)
              ! change miniscule to majuscule letter
              string(i:i) = achar(iachar(str(i:i))+toupper)
           end select
       enddo
    end function upper
    end program demo_achar

Results:

decimal =65 character =A binary =1000001 octal =101 hexadecimal =41 32 33 ! 34 " 35 # 36 $ 37 % 38 & 39 ’

40 ( 41 ) 42 * 43 + 44 , 45 - 46 . 47 /

48 0 49 1 50 2 51 3 52 4 53 5 54 6 55 7

56 8 57 9 58 : 59 ; 60 < 61 = 62 > 63 ?

64 @ 65 A 66 B 67 C 68 D 69 E 70 F 71 G

72 H 73 I 74 J 75 K 76 L 77 M 78 N 79 O

80 P 81 Q 82 R 83 S 84 T 85 U 86 V 87 W

88 X 89 Y 90 Z 91 [ 92 \ 93 ] 94 ^ 95 _

96 ‘ 97 a 98 b 99 c 100 d 101 e 102 f 103 g

104 h 105 i 106 j 107 k 108 l 109 m 110 n 111 o

112 p 113 q 114 r 115 s 116 t 117 u 118 v 119 w

120 x 121 y 122 z 123 { 124 | 125 } 126 ~

MIXED CASE

STANDARD

FORTRAN 77. KIND argument added Fortran 2003

RESOURCES

o ANSI escape sequences

o M_attr module for controlling ANSI-compatible terminals

fortran-lang intrinsic descriptions (license: MIT) @urbanjost

Nemo Release 3.1

achar (3fortran)

April 28, 2024

Generated by manServer 1.08 from cc82e4b6-681a-4ae7-ad68-7f730cc0c3b6 using man macros.

o	a kind designated as ** may be any supported kind for the type
o	The character kind returned is the value of KIND if present. otherwise, a single default character is returned.

o	I : the integer value to convert to an ASCII character, in the range 0 to 127. : ACHAR(3) shall have the value C for any character C capable of representation as a default character.
o	KIND : a integer initialization expression indicating the kind parameter of the result.

o	ANSI escape sequences
o	M_attr module for controlling ANSI-compatible terminals