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