1C Copyright 1981-2016 ECMWF. 2C 3C This software is licensed under the terms of the Apache Licence 4C Version 2.0 which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. 5C 6C In applying this licence, ECMWF does not waive the privileges and immunities 7C granted to it by virtue of its status as an intergovernmental organisation 8C nor does it submit to any jurisdiction. 9C 10 11 SUBROUTINE BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR) 12C 13C**** *BUSEL* 14C 15C 16C PURPOSE. 17C -------- 18C RETURNS LIST OF DATA DESCRIPTORS AS IN SECTION 3 OF BUFR 19C MESSAGE AND TOTAL/REQUESTED LIST OF ELEMENTS. 20C 21C 22C** INTERFACE. 23C ---------- 24C 25C *CALL* *BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)* 26C 27C 28C OUTPUT: 29C *KTDLEN* - NUMBER OF DATA DESCRIPTORS IN SECTION 3 30C *KTDLST* - ARRAY CONTAINING DATA DESCRIPTORS IN SECTION 3 31C *KTDEXL* - NUMBER OF ENTRIES IN LIST OF EXPANDED DATA 32C DESCRIPTORS 33C *KTDEXP* - ARRAY CONTAINIG EXPANDED DATA DESCRIPTORS 34C *KERR* - RETURNED ERROR CODE 35C 36C 37C METHOD. 38C ------- 39C 40C NONE. 41C 42C EXTERNALS. 43C ---------- 44C 45C NONE. 46C 47C REFERENCE. 48C ---------- 49C 50C NONE. 51C 52C AUTHOR. 53C ------- 54C 55C M. DRAGOSAVAC *ECMWF* 15/01/91. 56C 57C 58C MODIFICATIONS. 59C -------------- 60C 61C NONE. 62C 63C 64 IMPLICIT LOGICAL(L,O,G), CHARACTER*8(C,H,Y) 65C 66C 67# include "parameter.F" 68# include "bcomunit.F" 69# include "bcomel.F" 70C 71 DIMENSION KTDLST(*),KTDEXP(*) 72C 73C 74C ----------------------------------------------------------------- 75 76C* 1. PUT LIST OF ELEMENTS FROM COMMON BLOCK 77C -------------------------------------- 78C TO REQUESTED ARRAYS. 79C -------------------- 80 100 CONTINUE 81C 82 KERR=0 83C 84 KTDLEN=NTDLEN 85 KTDEXL=NTDEXL 86C 87 DO 101 I=1,NTDLEN 88 KTDLST(I)=NTDLST(I) 89 101 CONTINUE 90C 91 DO 102 I=1,NTDEXL 92 KTDEXP(I)=NTDEXP(I) 93 102 CONTINUE 94C 95 RETURN 96 END 97