tables.c File Reference

#include <foreign.h>
#include <fortran.h>
#include <cray/dopevec.h>
#include <cray/mtlock.h>
#include "fio.h"

Include dependency graph for tables.c:

Go to the source code of this file.

Variables
const ftype_t	_f77_to_f90_type_cnvt [DT_MAX]
const short	_f90_to_f77_type_cnvt [DVTYPE_NTYPES]
const short	_f77_type_len [DT_MAX]
const char *	_f90_type_name [DVTYPE_NTYPES]
const char *	_f77_type_name [DT_MAX]
const short	_charset_cnvt [CS_MAX] = {0, 0, NCV_IBM, NCV_CDC, 0, 0}
const short	_ffstat_cnvt [7]
const short	_old_namelist_to_f77_type_cnvt [10]
type_packet	__tip_null = {DVTYPE_TYPELESS, -1, 0, 0, 0, 0, 1, 0, 0, 0, NULL}

---

Variable Documentation

type_packet __tip_null = {DVTYPE_TYPELESS, -1, 0, 0, 0, 0, 1, 0, 0, 0, NULL}

Definition at line 204 of file tables.c.

Referenced by _FRF(), _FWF(), _FWN(), _FWU(), _nlstrent(), _wnl90to77(), and _WUF().

const short _charset_cnvt[CS_MAX] = {0, 0, NCV_IBM, NCV_CDC, 0, 0}

Definition at line 157 of file tables.c.

Referenced by _get_dc_param().

const ftype_t _f77_to_f90_type_cnvt[DT_MAX]

Initial value:

 {
        DVTYPE_TYPELESS,        
        DVTYPE_INTEGER,         
        DVTYPE_REAL,            
        DVTYPE_REAL,            
        DVTYPE_COMPLEX,         
        DVTYPE_LOGICAL,         
        DVTYPE_ASCII,           
        DVTYPE_INTEGER,         
        DVTYPE_COMPLEX          
}

Definition at line 58 of file tables.c.

Referenced by l_write().

const short _f77_type_len[DT_MAX]

Initial value:

 {
        sizeof(long),           
        sizeof(_f_int),         
        sizeof(_f_real),        
        sizeof(_f_real) * 2,    
        sizeof(_f_real) * 2,    
        sizeof(_f_log),         
        sizeof(char),           



        sizeof(_f_int),         

        sizeof(_f_real) * 4     
}

Definition at line 96 of file tables.c.

Referenced by _get_dc_param(), and n_getv().

const char* _f77_type_name[DT_MAX]

Initial value:

 {
        "Typeless",             
        "INTEGER",              
        "REAL",                 
        "DOUBLE PRECISION",     
        "COMPLEX",              
        "LOGICAL",              
        "CHARACTER",            
        "Short INTEGER",        
        "Double Complex"        
}

Definition at line 138 of file tables.c.

Referenced by RNL().

const short _f90_to_f77_type_cnvt[DVTYPE_NTYPES]

Initial value:

 {
        -1,             
        DT_NONE,        
        DT_INT,         
        DT_REAL,        
        DT_CMPLX,       
        DT_LOG,         
        DT_CHAR,        
        -1,             
        -1              
}

Definition at line 77 of file tables.c.

Referenced by _get_dc_param().

const char* _f90_type_name[DVTYPE_NTYPES]

Initial value:

 {
        NULL,           
        "boolean",      
        "INTEGER",      
        "REAL",         
        "COMPLEX",      
        "LOGICAL",      
        "CHARACTER",    
        NULL,           
        NULL            
}

Definition at line 119 of file tables.c.

Referenced by _gdc_abort().

const short _ffstat_cnvt[7]

Initial value:

 {
        -1,     
        CNT,
        EOR,
        EOF,
        EOD,
        CNT,    
        -1      
}

Definition at line 166 of file tables.c.

const short _old_namelist_to_f77_type_cnvt[10]

Initial value:

 {
        DT_NONE,                
        DT_SINT,                
        DT_INT,                 
        DT_REAL,                
        DT_DBLE,                
        DT_CMPLX,               
        DT_CHAR,                
        -1,                     
        -1,                     
        DT_LOG                  
}

Definition at line 184 of file tables.c.

Referenced by n_getv(), RNL(), and WNL().