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 | _nlstrent (FIOSPTR css, unit *cup, nmlist_goli_t *nalist, int count, int errf, int bytofset) |
int | _wnl90to77 (FIOSPTR css, unit *cup, nmlist_group *namlist, void *stck, int errf) |
int | _FWN (ControlListType *cilist, nmlist_group *namlist, void *stck) |
int _FWN | ( | ControlListType * | cilist, |
nmlist_group * | namlist, | ||
void * | stck | ||
) |
Definition at line 80 of file wnl90.c.
References __tip_null, _fcdlen(), _fcdtocp(), _imp_open(), _ld_write, _lw_after_nonadv(), _nlstrent(), _sw_endrec(), _UERRC, _UERRF, _UIOSTF, _unit_bksp(), _wnl90to77(), _wnlrecsiz, DopeVector::a, DopeVector::base_addr, nmlist_scalar::charptr, DopeVector::charptr, type_information_packet::cnvindx, type_information_packet::count, cup, ControlList::dflag, DopeVector::dimension, nmlist_goli::dv, nmlist_struclist::dv, type_information_packet::elsize, fiostate::iostate::fmtstate::endrec, ControlList::errflag, ERROR0, DopeVector::DvDimen::extent, type_information_packet::extlen, FP::fdc, FEFMTTIV, FEINTUNK, FENLNMSZ, FENOWRIT, FESEQTIV, FEWRAFEN, FMT, ControlList::fmt, fiostate::iostate::fmt, nmlist_group::goli, nmlist_struclist::goli, nmlist_goli::goli_addr, nmlist_goli::goli_name, nmlist_group::group_name, nmlist_group::icount, fiostate::iostate::fmtstate::icp, f90_type::int_len, ControlList::internal, type_information_packet::intlen, IO_ERR, IO_OKAY, ControlList::iostat_spec, ControlList::iostatflg, MIN, DopeVector::n_dim, NLCHAR, NLINE, NLWFLUSH, fiostate::iostate::fmtstate::nonadv, fiostate::iostate::fmtstate::nonl, NULL, OS_WRITE, OUT_LINE, unit_s::pnonadv, nmlist_scalar::ptr, nmlist_goli::ptr, nmlist_scalar::scal_addr, SEQ, nmlist_goli::sptr, STDOUT_U, ControlList::stksize, STMT_BEGIN, STMT_END, type_information_packet::stride, nmlist_struclist::struc_addr, nmlist_struclist::structlen, ffsw::sw_error, T_WNL, TF_WRITE, 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::uaction, unit_s::uend, unit_s::ufcomsep, unit_s::uffsw, ControlList::uflag, unit_s::uflag, unit_s::uflshptr, unit_s::ufmt, unit_s::ufp, unit_s::uft90, unit_s::uldwsize, unit_s::ulinebuf, unit_s::ulinecnt, unit_s::ulinemax, unit_s::ulineptr, unit_s::umultfil, ControlList::unit, unit_s::unmlsize, unit_s::urecl, unit_s::urecsize, unit_s::useq, unit_s::uwrt, nmlist_goli::valtype, varlen(), and gfptr_t::wa.
int _nlstrent | ( | FIOSPTR | css, |
unit * | cup, | ||
nmlist_goli_t * | nalist, | ||
int | count, | ||
int | errf, | ||
int | bytofset | ||
) |
Definition at line 654 of file wnl90.c.
References __tip_null, _fcdlen(), _fcdtocp(), _ld_write, DopeVector::a, DopeVector::base_addr, nmlist_scalar::charptr, DopeVector::charptr, type_information_packet::cnvindx, type_information_packet::count, DopeVector::dimension, nmlist_goli::dv, nmlist_struclist::dv, type_information_packet::elsize, DopeVector::DvDimen::extent, type_information_packet::extlen, FEINTUNK, fiostate::iostate::fmt, nmlist_struclist::goli, nmlist_goli::goli_addr, f90_type::int_len, type_information_packet::intlen, DopeVector::n_dim, NLCHAR, NLWFLUSH, NULL, nmlist_scalar::ptr, nmlist_goli::ptr, nmlist_scalar::scal_addr, nmlist_goli::sptr, type_information_packet::stride, nmlist_struclist::struc_addr, nmlist_struclist::structlen, 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::ulinemax, unit_s::unmlsize, and nmlist_goli::valtype.
Referenced by _FWN().
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().