#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <float.h>
#include <math.h>
#include <time.h>
#include <sys/stat.h>
#include <sys/types.h>
 | 
| #define  | FNAME_H | 
|   | 
| #define  | FORTRAN_NAME(low,  up)   low | 
|   | 
| #define  | byte_reverse   FORTRAN_NAME(byte_reverse,     BYTE_REVERSE    ) | 
|   | 
| #define  | byte_reverse8   FORTRAN_NAME(byte_reverse8,    BYTE_REVERSE8   ) | 
|   | 
| #define  | byte_open   FORTRAN_NAME(byte_open,        BYTE_OPEN       ) | 
|   | 
| #define  | byte_close   FORTRAN_NAME(byte_close,       BYTE_CLOSE      ) | 
|   | 
| #define  | byte_rewind   FORTRAN_NAME(byte_rewind,      BYTE_REWIND     ) | 
|   | 
| #define  | byte_read   FORTRAN_NAME(byte_read,        BYTE_READ       ) | 
|   | 
| #define  | byte_write   FORTRAN_NAME(byte_write,       BYTE_WRITE      ) | 
|   | 
| #define  | get_bytesw_write   FORTRAN_NAME(get_bytesw_write, GET_BYTESW_WRITE) | 
|   | 
| #define  | set_bytesw_write   FORTRAN_NAME(set_bytesw_write, SET_BYTESW_WRITE) | 
|   | 
| #define  | READ   1 | 
|   | 
| #define  | WRITE   2 | 
|   | 
| #define  | MAX_NAME   132 | 
|   | 
| #define  | SWAP(a,  b)   temp=(a); (a)=(b); (b)=temp; | 
|   | 
 | 
| void  | exitt () | 
|   | 
| void  | byte_reverse (float *buf, int *nn, int *ierr) | 
|   | 
| void  | byte_reverse8 (float *buf, int *nn, int *ierr) | 
|   | 
| void  | byte_open (char *n, int *ierr, int nlen) | 
|   | 
| void  | byte_close (int *ierr) | 
|   | 
| void  | byte_write (float *buf, int *n, int *ierr) | 
|   | 
| void  | byte_read (float *buf, int *n, int *ierr) | 
|   | 
| void  | set_bytesw_write (int *pa) | 
|   | 
| void  | set_bytesw_read (int *pa) | 
|   | 
| void  | get_bytesw_write (int *pa) | 
|   | 
| void  | get_bytesw_read (int *pa) | 
|   | 
◆ byte_close
◆ byte_open
◆ byte_read
◆ byte_reverse
      
        
          | #define byte_reverse   FORTRAN_NAME(byte_reverse,     BYTE_REVERSE    ) | 
        
      
 
 
◆ byte_reverse8
      
        
          | #define byte_reverse8   FORTRAN_NAME(byte_reverse8,    BYTE_REVERSE8   ) | 
        
      
 
 
◆ byte_rewind
◆ byte_write
◆ FNAME_H
◆ FORTRAN_NAME
      
        
          | #define FORTRAN_NAME | 
          ( | 
            | 
          low,  | 
        
        
           | 
           | 
            | 
          up  | 
        
        
           | 
          ) | 
           |    low | 
        
      
 
 
◆ get_bytesw_write
      
        
          | #define get_bytesw_write   FORTRAN_NAME(get_bytesw_write, GET_BYTESW_WRITE) | 
        
      
 
 
◆ MAX_NAME
◆ READ
◆ set_bytesw_write
      
        
          | #define set_bytesw_write   FORTRAN_NAME(set_bytesw_write, SET_BYTESW_WRITE) | 
        
      
 
 
◆ SWAP
      
        
          | #define SWAP | 
          ( | 
            | 
          a,  | 
        
        
           | 
           | 
            | 
          b  | 
        
        
           | 
          ) | 
           |    temp=(a); (a)=(b); (b)=temp; | 
        
      
 
 
◆ WRITE
◆ byte_close()
      
        
          | void byte_close  | 
          ( | 
          int *  | 
          ierr | ) | 
           | 
        
      
 
 
◆ byte_open()
      
        
          | void byte_open  | 
          ( | 
          char *  | 
          n,  | 
        
        
           | 
           | 
          int *  | 
          ierr,  | 
        
        
           | 
           | 
          int  | 
          nlen  | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
◆ byte_read()
      
        
          | void byte_read  | 
          ( | 
          float *  | 
          buf,  | 
        
        
           | 
           | 
          int *  | 
          n,  | 
        
        
           | 
           | 
          int *  | 
          ierr  | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
◆ byte_reverse()
      
        
          | void byte_reverse  | 
          ( | 
          float *  | 
          buf,  | 
        
        
           | 
           | 
          int *  | 
          nn,  | 
        
        
           | 
           | 
          int *  | 
          ierr  | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
◆ byte_reverse8()
      
        
          | void byte_reverse8  | 
          ( | 
          float *  | 
          buf,  | 
        
        
           | 
           | 
          int *  | 
          nn,  | 
        
        
           | 
           | 
          int *  | 
          ierr  | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
◆ byte_write()
      
        
          | void byte_write  | 
          ( | 
          float *  | 
          buf,  | 
        
        
           | 
           | 
          int *  | 
          n,  | 
        
        
           | 
           | 
          int *  | 
          ierr  | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
◆ exitt()
◆ get_bytesw_read()
      
        
          | void get_bytesw_read  | 
          ( | 
          int *  | 
          pa | ) | 
           | 
        
      
 
 
◆ get_bytesw_write()
      
        
          | void get_bytesw_write  | 
          ( | 
          int *  | 
          pa | ) | 
           | 
        
      
 
 
◆ set_bytesw_read()
      
        
          | void set_bytesw_read  | 
          ( | 
          int *  | 
          pa | ) | 
           | 
        
      
 
 
◆ set_bytesw_write()
      
        
          | void set_bytesw_write  | 
          ( | 
          int *  | 
          pa | ) | 
           | 
        
      
 
 
◆ bytesw_read
◆ bytesw_write