*********************************************************************
*                                                                   *
*      General routine for testing new RPA subroutines.             *
*                                                                   *
*      Requires readin.f, rpavar.inc, and any other routine to test *
*                                                                   *
*********************************************************************

	PROGRAM MAIN

	  INCLUDE "rpavar.inc"

	  CALL READIN

	  CALL DERIVE

	  END
**********************************************************************
	  INCLUDE "readin.f"
	  INCLUDE "deriv.f"