Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
#include <ctype.h>
#include <ffio.h>
#include <memory.h>
#include <string.h>
#include <unistd.h>
#include <sys/types.h>
#include <sys/stat.h>
#include "fio.h"
Go to the source code of this file.
Functions | |
void | _copy_n_trim (char *a, ftnlen alen, char *b) |
void | _b_char (char *a, char *b, ftnlen blen) |
int | _is_file_name (long n) |
static void | g_skip (char *a, int alen) |
int | _fortname (char *buf, unum_t n) |
Definition at line 80 of file util.c.
References MIN.
Referenced by _f_inqu(), ttynamf90_(), and ttynamf90_8_().
void _copy_n_trim | ( | char * | a, |
ftnlen | alen, | ||
char * | b | ||
) |
Definition at line 172 of file util.c.
References _is_file_name(), and g_skip().
Referenced by _f_open().
int _is_file_name | ( | long | n | ) |
Definition at line 104 of file util.c.
Referenced by _fcleanup(), _fortname(), _setunit(), and fmt_unit().
static void g_skip | ( | char * | a, |
int | alen | ||
) | [static] |
Definition at line 145 of file util.c.
Referenced by _fortname().