F77/F90 Syntax
Example 8-121
include `s3l/s3l-f.h' include `s3l/s3l_errno-f.h' subroutine S3L_sort(A, ier) S3L_sort_up(A, ier) S3L_sort_down(A, ier) S3L_sort_detailed_up(A, axis, ier) S3L_sort_detailed_down(A, axis, ier) integer*8 A integer*4 axis integer*4 ier |
where <type> is real*4 or real*8 for both C/C++ and F77/F90.
- © 2010, Oracle Corporation and/or its affiliates