43 	ityp, char *clv, real *hl, integer *nlev, logical *lset, ftnlen   in udiclv_0_()  argument
111     if (! (1 <= *nlev && *nlev <= udblk2_1.nl)) {  in udiclv_0_()
115 	do_fio(&c__1, (char *)&(*nlev), (ftnlen)sizeof(integer));  in udiclv_0_()
122     *zlev = udblk2_1.czl[*nlev - 1];  in udiclv_0_()
123     *indx = udblk2_1.idx[*nlev - 1];  in udiclv_0_()
124     *ityp = udblk2_1.ity[*nlev - 1];  in udiclv_0_()
125     *hl = udblk2_1.hlv[*nlev - 1];  in udiclv_0_()
126     s_copy(clv, udblk3_1.clab + (*nlev - 1 << 3), clv_len, (ftnlen)8);  in udiclv_0_()
131     *nlev = udblk2_1.nl;  in udiclv_0_()
180 	clv, real *hl, integer *nlev, ftnlen clv_len)  in udqclv_()  argument
182     return udiclv_0_(2, zlev, indx, ityp, clv, hl, nlev, (logical *)0,   in udqclv_()
186 /* Subroutine */ int udqcln_(integer *nlev)  in udqcln_()  argument
189 	    real *)0, nlev, (logical *)0, (ftnint)0);  in udqcln_()