-/* Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
+/* Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
Free Software Foundation, Inc.
Contributed by Andy Vaught
F2003 I/O support contributed by Jerry DeLisle
CHARACTER2 (round);
CHARACTER1 (sign);
GFC_INTEGER_4 *pending;
- GFC_INTEGER_4 *size;
+ GFC_IO_INT *size;
GFC_INTEGER_4 *id;
}
st_parameter_inquire;
extern void * read_block_form (st_parameter_dt *, int *);
internal_proto(read_block_form);
-extern char *read_sf (st_parameter_dt *, int *);
-internal_proto(read_sf);
-
extern void *write_block (st_parameter_dt *, int);
internal_proto(write_block);