1 /* 2 * Copyright (c) 1997-2018, NVIDIA CORPORATION. All rights reserved. 3 * 4 * Licensed under the Apache License, Version 2.0 (the "License"); 5 * you may not use this file except in compliance with the License. 6 * You may obtain a copy of the License at 7 * 8 * http://www.apache.org/licenses/LICENSE-2.0 9 * 10 * Unless required by applicable law or agreed to in writing, software 11 * distributed under the License is distributed on an "AS IS" BASIS, 12 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 13 * See the License for the specific language governing permissions and 14 * limitations under the License. 15 * 16 */ 17 18 typedef struct fio_parm fio_parm; 19 struct fio_parm { 20 char *ab; /* array base address */ 21 DECL_HDR_PTRS(ac); /* array descriptor */ 22 23 int (*f90io_rw)(int kind, int cnt, int str, char *adr, 24 __CLEN_T len); /* f90io read/write function ptr */ 25 26 int (*pario_rw)(int fd, char *adr, int cnt, int str, int typ, int ilen, 27 int own); /* pario read/write function ptr */ 28 29 void (*fio_rw)(fio_parm *z); /* fio read/write function ptr */ 30 31 __INT_T index[MAXDIMS]; /* first element index */ 32 int cnt; /* element count */ 33 int str; /* element stride */ 34 int stat; /* f90io function return status */ 35 int tcnt; /* pario total transfer count */ 36 int fd; /* pario file descriptor */ 37 38 repl_t repl; /* replication descriptor */ 39 }; 40 41 void I8(__fortio_loop)(fio_parm *z, /* parameter struct */ 42 int dim); /* loop dimension */ 43