/***********************************************************************/
/*    LICENSED MATERIALS - PROPERTY OF IBM                             */
/*    "RESTRICTED MATERIALS OF IBM"                                    */
/*                                                                     */
/*    5765-422                                                         */
/*    (C) COPYRIGHT IBM CORP. 1995. ALL RIGHTS RESERVED.               */
/*                                                                     */
/*    U.S. GOVERNMENT USERS RESTRICTED RIGHTS - USE, DUPLICATION       */
/*    OR DISCLOSURE RESTRICTED BY GSA ADP SCHEDULE CONTRACT WITH       */
/*    IBM CORP.                                                        */
/***********************************************************************/
#define PI 3.141592653589793
#define TWOPI (2.0 * 3.141592653589793 )
#define MAXBLOCK 50000
#define MAX_SC_INDEX 10
#define DESC_DIM 9
#define DTYPE 0
#define CTXT 1
#define M    2
#define N    3
#define MB   4
#define NB   5
#define RSRC 6
#define CSRC 7
#define LLD  8
#define TWOD_TYPE 1

#define A_INDEX(i,j,lda)   (((j)*(lda)) + i)
#define C_INDEX(i,j,lda)   (2 * (((j)*(lda)) + i))