Subroutine:     IRDS_DELETE

Purpose:        deletes an existing IRDS

File:   	irds_basic.c

Author:         Do Kester

Use:    CALL IRDS_DELETE( IRDS,     I     character*(*) 
                          STATUS )  O     integer

        IRDS    name of (existing) irds to delete
        STATUS   0 : OK. 
                -2 : error while deleting

Description:    
	When the irds does not exist, IRDS_DELETE does nothing.

Externals:      gds_delete gds_exist

Updates:        23/02/90 DK, document creation
		16/10/90 DK, make no-op
		19/02/92 DK, make status a true output parameter