include `s3l/s3l-f.h'
include `s3l/s3l_errno-f.h'
subroutine
S3L_to_ScaLAPACK_desc(s3ldesc, scdesc, data_type, address, ier)
    integer*8          s3ldesc
    integer*4          scdesc(*)
    integer*4          data_type
    pointer            address
    integer*4          ier