13 int snfilewrapper_(
char *name__, integer *ispec, integer *
14 inform__,
char *cw, integer *lencw, integer *iw, integer *leniw,
15 doublereal *rw, integer *lenrw, ftnlen name_len, ftnlen cw_len)
22 integer f_open(olist *), f_clos(cllist *);
25 extern int snspec_(integer *, integer *,
char *, integer
26 *, integer *, integer *, doublereal *, integer *, ftnlen);
27 static integer iostat;
43 o__1.ofnmlen = name_len;
50 iostat = f_open(&o__1);
52 *inform__ = iostat + 2;
54 snspec_(ispec, inform__, cw + 8, lencw, &iw[1], leniw, &rw[1], lenrw,
66 int snopenappend_(integer *iunit,
char *name__, integer *
67 inform__, ftnlen name_len)
73 integer f_open(olist *);
84 o__1.ofnmlen = name_len;
91 *inform__ = f_open(&o__1);
97 int snclose_(integer *iunit)
103 integer f_clos(cllist *);
111 cl__1.cunit = *iunit;
119 int snopenread_(integer *iunit,
char *name__, integer *
120 inform__, ftnlen name_len)
126 integer f_open(olist *);
137 o__1.ofnmlen = name_len;
142 o__1.ofm =
"FORMATTED";
144 *inform__ = f_open(&o__1);