istr.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
integer function	istr (str)

Function/Subroutine Documentation

istr()

integer function istr

(

character

str

)

Definition at line 30 of file istr.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      CHARACTER STR*8
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "ascchr_c.inc"
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER MANT12, MANT21, MANT22, MANT31, MANT32, MANT41, MANT42,
     .   IS, MANT1, MANT2, MANT3, MANT4
      mant12=iascod(ichar(str(2:2)))
      mant21=iascod(ichar(str(3:3)))
      mant22=iascod(ichar(str(4:4)))
      mant31=iascod(ichar(str(5:5)))
      mant32=iascod(ichar(str(6:6)))
      mant41=iascod(ichar(str(7:7)))
      mant42=iascod(ichar(str(8:8)))
C
      is=mant12/16
      mant1=mant12-16*is
      mant2=mant21*32+mant22
      mant3=mant31*32+mant32
      mant4=mant41*32+mant42
C
      istr=mant4+1000*mant3+1000000*mant2+1000000000*mant1
      IF(is==1)istr=-istr
C
      RETURN