inicod.F File Reference

#include "implicit_f.inc"
#include "chrasc_c.inc"
#include "ascchr_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	inicod

Function/Subroutine Documentation

inicod()

subroutine inicod

Definition at line 28 of file inicod.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "chrasc_c.inc"
#include      "ascchr_c.inc"
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
      CHARACTER CH1(0:31)
C-----------------------------------------------
      DATA ch1/'0','1','2','3','4','5','6','7',
     +        '8','9','A','B','C','D','E','F',
     +        'G','H','I','J','K','L','M','N',
     +        'O','P','Q','R','S','T','U','V'/
      DO 100 i=0,31
      codas(i)=ch1(i)
      iascod(ichar(ch1(i)))=i
 100  CONTINUE
      RETURN