Subroutine:     IRDS_CLOSE

Purpose:        closes an existing IRDS

File:   	irds_basic.c

Author:         Do Kester

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

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

Description:    

Externals:      gds_close

Updates:        23/02/90 DK, document creation
		19/02/92 DK: make status output parameter only