Revision
1.1.1.1 -
(
download)
(
annotate)
(vendor branch)
Tue Jun 23 14:32:58 1998 UTC
(14 years, 10 months ago)
by
cjonions
Branch:
ATLAS, MAIN
CVS Tags:
offline-04-00-00, offline-04-00-01, offline-01-01-01, offline-10-03-00, offline-02-04-01, offline-10-00-03, offline-10-00-02, offline-10-00-01, offline-10-00-00, offline-07-01-00, offline-10-00-06, offline-01-02-01, offline-10-00-04, offline-08-00-04, offline-08-00-05, offline-08-00-06, offline-08-00-07, offline-08-00-00, offline-08-00-01, offline-08-00-02, offline-08-00-03, offline-02-00-02, offline-02-00-00, offline-02-00-01, offline-08-00-08, offline-04-01-00, offline-07-05-00, atlsim-01-42-24, offline-11-02-00, atlsim-01-42-22, atlsim-01-42-21, offline-08-05-00, offline-02-03-01, offline-00-00-36, offline-00-00-18, offline-01-03-00, offline-09-03-00, offline-01-03-02, offline-01-03-03, offline-01-03-04, offline-06-01-00, offline-01-03-06, offline-01-03-07, offline-11-00-06, offline-09-00-00, offline-11-00-04, offline-11-00-05, offline-11-00-02, offline-11-00-03, offline-11-00-00, offline-11-00-01, offline-02-02-00, offline-02-06-00, offline-01-02-02, offline-02-01-01, offline-02-01-00, offline-00-00-21, offline-01-02-00, offline-07-02-00, offline-10-05-00, offline-05-00-00, offline-07-06-00, offline-00-00-16, offline-09-02-00, offline-08-02-00, offline-11-01-00, atlsim-01-41-04, atlsim-01-41-05, atlsim-01-41-06, atlsim-01-41-07, atlsim-01-41-00, atlsim-01-41-01, atlsim-01-41-02, atlsim-01-41-03, offline-00-00-08, offline-00-00-09, offline-00-00-05, offline-00-00-06, offline-00-00-07, offline-10-02-00, atlsim-01-42-01, atlsim-01-42-03, atlsim-01-42-02, atlsim-01-42-05, offline-08-03-00, offline-04-06-00, atlsim-01-42-06, atlsim-01-42-09, atlsim-01-42-08, offline-01-01-00, offline-04-05-00, offline-01-01-06, offline-01-01-04, offline-01-01-05, offline-08-04-00, atlsim-01-40-03, atlsim-01-40-02, offline-04-02-00, atlsim-01-40-00, atlsim-01-40-04, atlsim-01-42-09-01, atlsim-01-42-18, atlsim-01-42-19, atlsim-01-42-16, atlsim-01-42-23, atlsim-01-42-14, atlsim-01-42-15, atlsim-01-42-12, atlsim-01-42-13, atlsim-01-42-10, atlsim-01-42-11, offline-01-00-01, offline-01-00-00, offline-07-08-00, offline-09-04-00, atlsim-01-42-20, offline-04-04-00, offline-04-03-00, offline-00-00-19, offline-11-00-41, offline-00-00-17, offline-06-04-00, atlsim-01-42-17, offline-06-06-00, offline-03-02-00, offline-00-00-15, offline-00-00-14, atlsim-01-40-01, offline-01-03-01, offline-00-00-13, offline-00-00-12, offline-00-00-11, offline-02-03-00, offline-00-00-10, offline-01-03-05, offline-03-00-01, offline-03-00-00, offline-06-05-00, offline-09-00-01, offline-09-00-03, offline-00-00-22, offline-00-00-23, offline-00-00-20, offline-09-00-02, offline-00-00-26, offline-00-00-27, offline-00-00-24, offline-00-00-25, offline-03-01-00, atgeant-00-00-01, offline-00-00-28, offline-00-00-29, offline-09-00-04, offline-08-06-00, offline-00-00-40, offline-00-00-41, offline-05-02-00, offline-00-00-35, offline-00-00-34, offline-00-00-37, offline-06-03-00, offline-00-00-31, offline-00-00-30, offline-00-00-33, offline-00-00-32, offline-00-00-39, offline-00-00-38, offline-02-05-00, offline-07-04-00, offline-09-01-02, offline-07-03-00, offline-07-00-03, offline-07-00-02, offline-07-00-01, offline-07-00-00, offline-08-01-00, offline-05-03-00, offline-07-07-00, atlsim-01-42-04, offline-06-02-00, atlsim-01-42-07, offline-08-08-00, offline-02-04-00, offline-08-08-01, offline-01-01-02, offline-10-04-01, offline-01-01-03, offline-08-07-00, offline-06-00-04, offline-10-04-00, offline-06-00-02, offline-06-00-03, offline-06-00-00, offline-06-00-01, HEAD
Changes since
1.1: +0 -0 lines
Importing ATLSIM initial version
*
* $Id: arfromc.age,v 1.1.1.1 1998/06/23 14:32:58 cjonions Exp $
*
* $Name: $
*
* ---------------------------------------------------------
#include <commons/config.h>
**********************************************************************
* *
Function A R F R O M C (Cvar)
* *
* Description: 4-character to a real number conversion *
**********************************************************************
Real ARFROMC; Character Cvar*(*),C*4,S*64; Integer I,K;
Data S/' 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz '/;
C=Cvar; k=0;
Do i=1,4 { k=ISHFT(k,6); k+=Index(s(2:64),c(i:i)); }
ARFROMC=k;
END
Parent Directory
| 
Revision Log
| 
Revision Graph