Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
#include <stdio.h>
#include <errno.h>
#include <cray/nassert.h>
#include <liberrno.h>
#include "fio.h"
#include "namelist.h"
#include "wnl90def.h"
Go to the source code of this file.
Functions | |
int | _wnl90to77 (FIOSPTR css, unit *cup, nmlist_group *namlist, void *stck, int errf) |
int _wnl90to77 | ( | FIOSPTR | css, |
unit * | cup, | ||
nmlist_group * | namlist, | ||
void * | stck, | ||
int | errf | ||
) |
Definition at line 73 of file wnl90to77.c.
References __tip_null, _fcdlen(), _fcdtocp(), _ld_write, _UERRC, DopeVector::a, DopeVector::base_addr, nmlist_scalar::charptr, DopeVector::charptr, type_information_packet::cnvindx, type_information_packet::count, DopeVector::dimension, nmlist_goli::dv, type_information_packet::elsize, ERROR0, DopeVector::DvDimen::extent, type_information_packet::extlen, FEINTUNK, FENLDBCP, FENLNMSZ, FENLSTCT, fiostate::iostate::fmt, nmlist_group::goli, nmlist_goli::goli_addr, nmlist_goli::goli_name, nmlist_group::group_name, nmlist_group::icount, f90_type::int_len, type_information_packet::intlen, DopeVector::n_dim, NLCHAR, NLINE, NLWFLUSH, NULL, OUT_CHAR, OUT_ECHO, OUT_EQ, OUT_SEP, nmlist_scalar::ptr, nmlist_goli::ptr, nmlist_scalar::scal_addr, type_information_packet::stride, nmlist_scalar::tinfo, f90_type::type, type_information_packet::type77, type_information_packet::type90, DopeVector::type_lens, fiostate::iostate::fmtstate::u, fiostate::u, unit_s::uflag, unit_s::ulinemax, unit_s::ulineptr, unit_s::unmlsize, nmlist_goli::valtype, and varlen().
Referenced by _FWN().