include `s3l/s3l-f.h include `s3l/s3l_errno-f.h' subroutine S3L_free(a, ier) integer*8 a integer*4 ier