/********************************************************************/         
 /*                                                                  */         
 /* This header file was created at the UCLA Office of Academic      */         
 /* computing.                                                       */         
 /*                                                                  */         
 /* The University of California requires the following disclaimer   */         
 /* concerning all distributed programs:                             */         
 /*                                                                  */         
 /* Although this program material has been tested by its            */         
 /* contributor, no warranty, expressed or implied, is made by the   */         
 /* contributor or the University of California as to the accuracy   */         
 /* and functioning of the program and related program material, nor */         
 /* shall the fact of the distribution constitute any such warranty, */         
 /* and no responsibility is assumed by the contributor or the       */         
 /* University of California, in connection therewith.               */         
 /*                                                                  */         
 /********************************************************************/         
#pragma  linkage(DFfindnextref, FORTRAN)                                        
#pragma  map(DFfindnextref, "DFINDNR")