1 /*
2  * Copyright (c) 2017, 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 /* clang-format off */
19 
20 /*	commitqq3f.c - Implements DFLIB commitqq subroutine.  */
21 
22 /* must include ent3f.h AFTER io3f.h */
23 #include "io3f.h"
24 #include "ent3f.h"
25 
26 extern FILE *__getfile3f();
27 
28 int ENT3F(COMMITQQ, commitqq)(lu) int *lu;
29 {
30   FILE *f;
31   int i;
32 
33   f = __getfile3f(*lu);
34   if (f) {
35     fflush(f);
36     i = -1; /* .true. returned if open unit is passed */
37   } else
38     i = 0; /* .false.  returned if unopened unit is passed */
39 
40   return i;
41 }
42