     	SUBROUTINE WDIAID
C
C  PROGRAMMER:  R. L. SNYDER
C		ALFRED UNIVERSITY,  JUNE-1987
C
C	THIS ROUTINE WRITES OUT A AIDS DIFILE FROM COMMON BLOCKS
C
     	INCLUDE 'FILECONV.CBS'
     	REAL*4 LAMDA
     	INTEGER*2 ITIT(40), HH, KK, LL
     	EQUIVALENCE (ITIT,SLID)
C
C THE FOLLOWING IS A DUMMY ROUTINE UNTIL WE GET THE CORRECT FORMAT
C
     	CALL NOTWRN
     	RETURN
     	END
